各位誰熟悉perl中stat的用法我現(xiàn)在有點糊涂，請大家指點一下，謝謝

littlefour

foreach(@dir){                                ## - Iterate through path
    next if stat($_) && -d _;                        ## - Skip if directory exists
    if ($NOOP) {                                ## - Don't make if $NOOP
      print STDOUT "mkdir: $_\n";
    }

這其中的 -d _中的_是什么意思啊，搞的暈了。
另外還有一段

  unless(stat($name)) {
    return -1;
  }
  return int(($time - (stat(_))[9]) / $hour_s);

中的stat(_)中的_是什么意思？下面是perldoc中的一段話。

If "stat" is passed the special filehandle consisting of an
            underline, no stat is done, but the current contents of the stat
            structure from the last "stat", "lstat", or filetest are
            returned。
我理解是
-d中的_是上次stat($_)中的文件句柄？
stat(_)中的_也是stat($name)中的文件句柄？
大神們給點指點，謝謝噶

perlnewbie

小駱駝書196頁  ：-D

littlefour

回復 2# perlnewbie


    謝謝你的回答，
-d我是知道什么意思的，我主要想問的是_代表的是什么。以及stat(_)中的_代表的是什么，再次請教

zhlong8

回復  perlnewbie


    謝謝你的回答，
-d我是知道什么意思的，我主要想問的是_代表的是什么。以及st ...
littlefour 發(fā)表于 2011-06-18 09:28

    利用上一次 stat 的信息，結果是省一次系統(tǒng)調用。一種蹩腳的優(yōu)化手段而已

littlefour

回復 4# zhlong8


    十分感謝，悲劇的一比