パスワードを忘れた? アカウント作成
595233 journal

ryuuriの日記: 本日のメモ

日記 by ryuuri
さて。忙しくなってから、さっぱり更新してなかったわけだが。
#というより、頻繁に更新できてた時がヒマすぎたのか?(笑

1ヶ月ぶりに更新する日記が、自分のためのメモだったりするところが、まあ、日記っぽいというかなんというか。
ということで、perl関係のメモ

■ディレクトリの更新時間を取得しつづける。

while (1) {
@a = stat("tmp");
print "@a\n";
print "time : $a[9]\n";
sleep 10;
}

■ディレクトリ配下のファイルが増えた時に、そのファイルをプリント

while ( 1 ) {
opendir(DIR, "tmp");
while ( $file = readdir(DIR) ) {
if ($filelist{$file} != 1) {
print "$file \n";
$filelist{$file} = 1;
}
}
sleep 60;
closedir(DIR);
}
この議論は賞味期限が切れたので、アーカイブ化されています。 新たにコメントを付けることはできません。
typodupeerror

最初のバージョンは常に打ち捨てられる。

読み込み中...