perl - 连接中未初始化的值

Question

我遇到了“串联中未初始化的值”错误，该错误在本论坛中进行了深入讨论，通常指的是 undefined variable 。

但是，作为新手，我不知道下面的代码中存在问题的“原因”。

错误涉及变量 $sb 和 $filesize。

非常感谢任何见解。

谢谢!!!

---

#!/usr/bin/perl

use strict;
use warnings;
use File::stat;

#The directory where you store the filings
my $dir="/Volumes/EDGAR1/Edgar/Edgar2/10K/2009";    

opendir(DIR, $dir) or die $!;  

while (my $file = readdir(DIR)) {

# Use a regular expression to ignore files beginning with a period
    next if ($file =~ m/^\./);

#my $form_type=substr($line,62,12);
#my $cik=substr($line,74,10);
#my $file_date=substr($line,86,10);

#Note that for file date, we need to get rid of 
#the - with the following regular expression.
#month-day-year and some years there is not.
#This regular expression 
#my $file_date=~s/\-//g;
my $filesize = -s "$file";
my $sb = (stat($file))[7];

print "$file,$sb,$filesize\n";

}

closedir(DIR);
exit 0;  

Answer 1

您正在使用 File::stat模块。该模块实现了覆盖 Perl 内置功能的 stat 功能。它返回一个对象而不是列表。所以这个:

my $sb = (stat($file))[7];

导致 $sb 未定义，因为列表中只有 1 个对象。您所做的就是使用模块函数:

my $sb = stat($file)->size();