Perl:使用stat()

Question

我试图在perl脚本中使用stat()。我阅读了perldocs上的文档，其中说要像这样使用它：

$mode = (stat($filename))[2];

但这是行不通的：

$mode = (stat($filename))[2];
print $mode;

Use of uninitialized value $mode in print at ... 

我认为还需要另一种语法来访问stat返回的值。数据：：dumper返回此结构：

   @stat = stat($filename);
   print Dumper(@stat);

  $VAR1 = bless( [
   48,
   305368,
   33188,
   1,
   0,
   0,
   0,
   '2011',
   1397569653,
   1397569653,
   1397569653,
   4096,
   8
  ], 'File::stat' );

Answer 1

很明显，你也有电话

use File::stat;

在你的节目里，忘了提到它。档案：：stat用返回对象的版本覆盖内置的stat函数。你应该改读其文件。

在你的情况下，你会想：

use File::stat;

my $mode = stat($filename)->mode;

Answer 2

您可以使用数组片(stat $filename)2来完成这一任务。