利用者:Dsk/memo/perl

$a ||= 'test';

#配列 デリファレンス
for (@{$test->{hoge}}) {
    print $_, "\n";
}

$rec = {
    NAME  => "Jason",
    AGE   => 23,
    PEERS => [ "Norbert", "Rhys", "Phineas"],
};
 
$rec->{NAME}
@{ $rec->{TEST} }

ファイル操作

• Path::Class
• File::Slurp - Simple and Efficient Reading/Writing/Modifying of Complete Files

Link

• コンストラクタの作成
• Part1 正しいPerl/CGIの書き方