スポンサーサイト 

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Data::Dumper 

今更ながらData::Dumper。
http://fleur.hio.jp/perldoc/mix/lib/Data/Dumper.html
デバッグ目的で使うならこんな感じ。

use Data::Dumper;
print Dumper(%hash);


ハッシュの中身をファイルとして保存して、後で実行した際に読み込む様なこともできる。
書き出す方はこんな感じ。

use Data::Dumper;
my($hash);
$hash->{key} = "value";
open(FILE, ">", $file) || die("can't open file: $?");
print(FILE Dumper($hash));
close(FILE);


読み込む方はこんな感じ。

my($VAR1, $line, @line);
open(FILE, "<", $file) || die("can't open file: $?");
@line = <DUMP>
close(DUMP);
$line = join("", @line);
eval($line);
$@ and die("eval error: $@");
$hash = $VAR1;

最後に $hash = $VAR1; とやっているけど、いきなりなぜ出てきたかといえば、Dumper()がダンプする際に変数名として$VAR1を使用する様になっていて、それをeval()すると当然$VAR1の値として読み込まれる。でもそれはそもそもの変数名ではないので、任意の変数として代入してやっているわけ。

コメント

コメントの投稿















管理者にだけ表示を許可する

トラックバック

この記事のトラックバックURL
http://haginov.blog35.fc2.com/tb.php/82-6c5ca376

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。