ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : nazdakk                              2:5020/1868.23 21 Mar 2001  19:18:06
 To : all
 Subject : <error?>
 -------------------------------------------------------------------------------- 
 

 
 подскажите что неправильно. я так понимаю что здесь файлы должны отсортироваться
 по дате последнего обращения...
 
 use file::stat;
 
 scandir("e:/files/");
 
 sub scandir {
  opendir(DIR, $_[0]);
 
 > foreach $name (sort{(stat($a))[8] <=> (stat($b))[8]} readdir(DIR)) {
 
   if (($name ne ".") && ($name ne "..")) {
    $filename=$_[0].$name;
    next if (-d $filename);
    ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,$blksize, 
 $blocks) = stat($filename);
    print " $name ->> $size\n";
   }
  }
  closedir(DIR);
 }
 
    odinzovo, alternativz, perlz, girlz
  * Origin: np: sleep (2:5020/1868.23)
 
 

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

Тема:    Автор:    Дата:    <error?>   nazdakk   21 Mar 2001 19:18:06   Re: <error?>   Yuriy Kaminskiy   23 Mar 2001 23:08:42