2008-04-10 無名配列へのアクセス Perl my $mtime = (stat($file))[9]; use File::stat; my $st = stat($file); $st->mtime;