有一段代碼看不明白，求解～

_LoveLinux

學(xué)習(xí)《perl網(wǎng)絡(luò)編程》時遇到的問題：

1. sub get_file {
   
2.   my ($path,$mode) = @_;
   
3.   my $rtime = $ftp->mdtm($path);
   
4.   my $rsize = $ftp->size($path);
   
5.   $mode = (parse_listing($ftp->dir($path)))[2] unless defined $mode;
   
6. 
   
7.   my ($lsize,$ltime) = stat($path) ? (stat(_))[7,9] : (0,0);   <==================== 這里不明白
   
8.   if ( defined($rtime) and defined($rsize)
   
9.        and ($ltime >= $rtime)
   
10.        and ($lsize == $rsize) ) {
    
11.     warn "Getting file $path: not newer than local copy.\n" if $VERBOSE;
    
12.     return;
    
13.   }
    
14. 
    
15.   warn "Getting file $path\n" if $VERBOSE;
    
16.   $ftp->get($path) or (warn $ftp->message,"\n" and return);
    
17.   chmod $mode,$path if $mode;
    
18. }
    

復(fù)制代碼

不明白的地方stat(_)是什么意思，是不是打印錯誤了，應(yīng)該是stat($_)呢？可是這段代碼所在的程序又能正常運行

sosflyer

回復(fù) 1# _LoveLinux


    代表前面那個$path吧？

_LoveLinux

回復(fù) 2# sosflyer

有這個用法嗎？怎么在《Perl編程入門》里我沒有看見過？有什么出處嗎？

xfoucs

回復(fù)  sosflyer

有這個用法嗎？怎么在《Perl編程入門》里我沒有看見過？有什么出處嗎？
_LoveLinux 發(fā)表于 2011-10-01 14:33

learning perl 講文件測試的章節(jié)里有

_LoveLinux

回復(fù) 4# xfoucs

汗～ 　《Perl編程入門》至少看３遍了，可是這段居然一直沒有看見
謝謝樓上兄弟的提醒！

sosflyer

回復(fù) 3# _LoveLinux


    我也沒在書上看到過，看到別人寫的程序里面出現(xiàn)過