[Comm] помогите с перлом пожалуйста

[Oleg Pan]

Hello community,

Есть программка
не отрабатывает stat

Уже обчитался весь - не знаю что делать.



#!/usr/bin/perl -w
use File::stat;
$Back_dir="/mnt/disk/backup/temp/";
opendir(DIR,$Back_dir);
while (defined ($file=readdir DIR)){
               next if $file =~ /^\.\.?$/;

               $full = $Back_dir.$file;

               ($size,$time)=(stat($file))[7,9];
               ($size1,$time1)=(stat($full))[7,9];

               ...
               ...
               ...
               
        };
        
closedir(DIR);
  

-- 
Best regards,
 Oleg                          mailto:wacom на narod.ru