03/06/20 05:45
>>974
むやみに実行引数使わないほうがいいと思うけど。
うｐ時
$filepath = <うｐファイルパス>;
open(FLS,">> hoge.dat");
print FLS $filepath."\n";
close(FLS);
削除時
$filepath = <削除ファイルパス>;
open(FLS,"< hoge.dat");
@exi = <FLS>;
close(FLS);
foreach(@exi){
if($filepath."\n" ne $exi[$_] ){
push(@newexit,$exi[$_]);
}
}
open(FLS,"> hoge.dat");
print FLS @newexi;
close(FLS);
てやっておけば常に確実な情報がhode.datにある。
要素を増やせば検索でもなんでもできるし。