Perl查找文件大小

Question

请找到我的代码段

my $filename = "/var/nxt/projs/apr/interfaces/output/ELA/$final_file";

print "File name is \n";
print $filename;
my $filesize =  (stat($filename))[7];
print "pradip output\n ";
print "%s",$filesize;

但是文件大小的值没有打印

有人可以帮忙吗？

Answer 1

您想使用printf()，而不是print()，

printf("%s",$filesize);

另外，您可能想要检查stat是否确实找到了您的文件/文件大小

my $filesize =  (stat($filename))[7] // die "no filesize!\n";

Answer 2

您还可以尝试-s选项

my $filesize = -s $filename;

Answer 3

如果有帮助，请参阅以下代码:(对于$ filename - 提供文件的完整路径）

my $filename = "c:/Users/user001/Desktop/file.txt";
print "File name is \n";
print $filename . "\n";
print "File size is \n";
print -s $filename;