このページは福井県立大学の田中求之が2006年1月まで運用していた Mac のサーバ運用に関する会議室 「Web Scripter's Meeting」の記録です。情報が古くなっている可能性がありますのでご注意ください。

MacPerl-ファイルサイズ、最終修正日を取得したい

発言者:Shin
( Date Thursday, November 22, 2001 21:42:38 )


度々すいません。

MacPerlでケータイ版PersonalNetFinderの様な物を作成しようと試みています。
数日試行錯誤してみましたが、ファイルサイズや最終修正日を取得する方法がわかりません。
よろしければご教授をして頂ければと思い投稿致しました。

statなどはMacPerlでは動作しないのでしょうか?
環境は、
MacJPerl5.2.0r4J1
Quid Pro Quo 1.0.1

竹内 さんからのコメント
( Sunday, November 25, 2001 15:53:11 )

perlは詳しくないのでよくわかりませんが、
たしかMacParlはAppleScriptを実行することが出来たと思いますので、
そちらで取得してはいかがでしょう。

野田 純生 さんからのコメント
( Monday, November 26, 2001 13:18:04 )

> statなどはMacPerlでは動作しないのでしょうか?

statは MacPerlでは問題なく動作します。
試されましたか?

Shin さんからのコメント
( Tuesday, November 27, 2001 21:10:56 )

コメント有り難うございます。
ですが、自己完結してしまいました^^;)
レスしてくださって有り難うございました。m(__)m

一応、スクリプトを載せておきます。

$dirname = 'ug';

   opendir(DIR, "$dirname");
    while ($file = readdir(DIR)) 
{ 
$fpath = ":$dirname:$file";
($dev, $ino, $mode, $nlink, $uid, $gid, $rdev, $size,
 $atime, $mtime, $ctime, $blksize, $blocks) = stat($fpath);
$mtime = localtime($mtime);
print <<"EOF";
Name: $file
Modified: $mtime
Size: $size byte

EOF
}