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

[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

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

[Oleg Pan]

Hello Oleg,

Thursday, August 19, 2004, 3:34:55 PM, you wrote:

     Если сделать
     $file="/mnt/disk/backup/temp/filname";
     то все нормально отрабатывает

>                ($size,$time)=(stat($file))[7,9];






-- 
Best regards,
 Oleg                            mailto:wacom@narod.ru

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

[php-coder]

0000100101011110100100101::19.08.2004::0110001001001000100111100100010

    Здравствуйте, Oleg!
    Отвечаю на Ваше письмо:
  
    Попробуйте спросить на RusFAQ.ru или Opennet.ru или даже на
    linux.org.ru...
  
-- 
  С уважением, php-coder (mailto:php-coder[at]ngs[dot]ru)
  Registered Linux User #327594
  ALT Linux Master 2.2 (kernel 2.4.27)

010010010010010001010101100::Linux RuleZz!::100010010001000100010001110

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

[Stanislav Yadykin]

[-- Attachment #1: Type: text/plain, Size: 365 bytes --]

В сообщении от Четверг, 19-Авг-2004 14:44 Oleg Pan написал(a):
> Hello Oleg,
>
> Thursday, August 19, 2004, 3:34:55 PM, you wrote:
>
>      Если сделать
>      $file="/mnt/disk/backup/temp/filname";
>      то все нормально отрабатывает
>
> >                ($size,$time)=(stat($file))[7,9];
($size,$time)=@{stat($file)}[7,9]

?
-- 
Stanislav Yadykin
ALT Linux Team

[-- Attachment #2: signature --]
[-- Type: application/pgp-signature, Size: 189 bytes --]