Webに公開されているJSON形式のファイルをPerl経由で

Question

katsuya777

4

4もっと見る

182pt

コンピュータウェブ制作

Webに公開されているJSON形式のファイルをPerl経由で

MySQLに流し込みたいのですがうまく行きません。

下記の print $perl_out;が　ARRAY(0x937dc28) 　と出力されます。
　　- これはどういう意味でしょうか?
- これをMySQLに流し込むことは可能でしょうか?

よろしくお願い致します。

-------------------------------------

#!/usr/bin/perl \

use strict;
use warnings;
use Data::Dumper;
use JSON;

my $json_in = ' [{"name": "Wetpaint",
"permalink": "wetpaint"},
{"name": "AdventNet",
"permalink": "adventnet"},
{"name": "Zoho",
"permalink": "zoho"},
{"name": "Digg",
"permalink": "digg"} ] ';

my $perl_out = decode_json($json_in);

print $perl_out;

回答の条件

1人2回まで

登録：2010/12/19 15:56:36
終了：2010/12/21 18:09:01

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

No.1

あすか856972010/12/19 16:39:35

28pt

これはどういう意味でしょうか?

格納されたオブジェクトのアドレスを示しています。

これをMySQLに流し込むことは可能でしょうか?

できません。

JSONは構造を持っていますから、その構造をどのような形でMySQLに反映させるかで、格納の仕方が変わってきます。

参考「JSON - JSONデータの解析 / Perlモジュール徹底解説」

ありがとうございます。

上記JSONの構造をテーブル上に変換し

MySQLに格納するにはどうしたらよいでしょうか？

やり方が記載されているURL等でも構いません。

2010/12/19 17:14:15

No.2

okamotoy131152010/12/19 17:56:55

18pt

　Perlからリレーショナルデータベースを操作するには，「DBD」「DBI」モジュール使う方法我あります．

No.3

あすか856972010/12/19 21:18:38

18pt

上記JSONの構造をテーブル上に変換し

仰っている意味が分かりません。

JSONからCREATE TABLEするには、JSON側に必要が情報が不足しています。

既存のTABLEにINSERTするという意味ならば、

TABLEの構造が分からないとお答えしようがありません。

No.5

tkyk36072010/12/19 22:09:07

18pt

忘れていました。補足です。

MySQL側で一旦テーブルを作成してください。

SQLで

みたいなのを想定しています。

tkyk3 2010/12/21 23:04:58

こちらこそ有り難う御座いました！
勉強になりました！

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

tkyk3 · Accepted Answer · 2010-12-19T22:06:23+09:00

実際にJSONデータをMySQLに落とし込むサンプルにしてみました。

#HTML表示出力する

の所はおまけです。Dumperでどんなデータだったか表示しているだけです。

#!/usr/bin/perl
use strict;
use warnings;
use lib qw(./);
use Data::Dumper;
use JSON;
use DBI;
use CGI qw(:standard -no_xhtml);

my $q = new CGI;

my $user = '';
my $passwd = '';
my $table_name = 'testtable';
my $db = DBI->connect('DBI:mysql:testdb:localhost', $user, $passwd);
my $sth;

my $json_in = ' [{"name": "Wetpaint",
"permalink": "wetpaint"},
{"name": "AdventNet",
"permalink": "adventnet"},
{"name": "Zoho",
"permalink": "zoho"},
{"name": "Digg",
"permalink": "digg"} ] ';

my $outdata = decode_json($json_in);

# データをMySQLにINSERTする
foreach my $data (@{$outdata}) { # 配列毎に処理する
	my $name = $data->{name};
	my $permalink = $data->{permalink};
	$sth = $db->prepare("insert into $table_name (name , permalink) values (? , ?);");
	$sth->execute($name, $permalink);
}
$sth->finish;
$db->disconnect;

#HTML表示出力する
print $q->header( '-Content-Type'	=> 'text/html',
		  '-charset' 		=> 'UTF-8',
		);
print "<pre>". Dumper($outdata) . "</pre>";

tkyk3 · Accepted Answer · 2010-12-19T22:06:23+09:00

実際にJSONデータをMySQLに落とし込むサンプルにしてみました。

#HTML表示出力する

の所はおまけです。Dumperでどんなデータだったか表示しているだけです。

#!/usr/bin/perl
use strict;
use warnings;
use lib qw(./);
use Data::Dumper;
use JSON;
use DBI;
use CGI qw(:standard -no_xhtml);

my $q = new CGI;

my $user = '';
my $passwd = '';
my $table_name = 'testtable';
my $db = DBI->connect('DBI:mysql:testdb:localhost', $user, $passwd);
my $sth;

my $json_in = ' [{"name": "Wetpaint",
"permalink": "wetpaint"},
{"name": "AdventNet",
"permalink": "adventnet"},
{"name": "Zoho",
"permalink": "zoho"},
{"name": "Digg",
"permalink": "digg"} ] ';

my $outdata = decode_json($json_in);

# データをMySQLにINSERTする
foreach my $data (@{$outdata}) { # 配列毎に処理する
	my $name = $data->{name};
	my $permalink = $data->{permalink};
	$sth = $db->prepare("insert into $table_name (name , permalink) values (? , ?);");
	$sth->execute($name, $permalink);
}
$sth->finish;
$db->disconnect;

#HTML表示出力する
print $q->header( '-Content-Type'	=> 'text/html',
		  '-charset' 		=> 'UTF-8',
		);
print "<pre>". Dumper($outdata) . "</pre>";

Webに公開されているJSON形式のファイルをPerl経由で

ベストアンサー

tkyk36072010/12/19 22:06:23

その他の回答（4件）

あすか856972010/12/19 16:39:35

okamotoy131152010/12/19 17:56:55

あすか856972010/12/19 21:18:38

tkyk36072010/12/19 22:06:23ここでベストアンサー

tkyk36072010/12/19 22:09:07

コメント（1件)

この質問への反応（ブックマークコメント）