Question

my $filesize = -s "infile.txt";

use File::stat;
use Time::localtime;

$file='infile.txt';
$date_string = ctime(stat($file)->mtime);

print "file $file updated at $date_string\n";
print "Size: $filesize\n";

exit 0;

谢谢。

Answer 1

现在还不清楚现有代码有什么问题。它似乎做你想要的。我们唯一的线索是评论，你说“它必须以用户友好的格式显示”，而无需解释什么是“用户友好格式”。

所以我猜你不喜欢ctime给你的日期/时间格式。当然，您不需要坚持使用这种格式。如果你将Time :: localtime用于Time :: Piece，那么你可以使用strftime方法以任何你想要的格式获取日期/时间。

#!/usr/bin/perl

use strict;
use warnings;
use 5.010;

use File::stat;
use Time::Piece;

my $format = '%Y-%m-%d %H:%M:%S';

my $file='infile.txt';

my $filesize = -s $file;

my $date_string = localtime(stat($file)->mtime)->strftime($format);

print "file $file updated at $date_string\n";
print "Size: $filesize\n";

我使用的格式只是一个例子。您可以使用strftime支持的任何转义序列。

我想查找我创建的文件的详细信息，并使用perl

1 个答案: