ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander V. Gaiduk                  2:5020/400     21 Apr 2003  11:14:01
 To : Roman Kirjanov
 Subject : Re: Текущий путь.
 -------------------------------------------------------------------------------- 
 

 > Траблы из-за этого куска кода:
 > chdir($path);
 > opendir(my $dir, '.');
 > foreach (readdir($dir)) {
 >     if (time() - (stat())[9] > 60 && -f)
 >         {unlink();}
 >     }
 > closedir($dir);
 >
 > Под виндовсом stat работает только для текущего каталога, а писать потом
 > chdir('..'); - имхо, некузяво.
 а по другому переписать не пробовал?
 типа этого:
 
 $path = "/хрен/знает/где";
 opendir(DIR, $path);
 foreach $filename (readdir(DIR)) {
     if ( (time - (stat("$path/$filename"))[9] > 60) && (-f
 "$path/$filename") )  {
         unlink("$path/$filename");
     }
 }
 closedir(DIR);
 --- ifmail v.2.15dev5
  * Origin: NetAdmin Department (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор