Shawn
2020-12-01 02:36:59
I'd like to do something like
print (localtime stat($file)->mtime)->strftime($format);
Very close! Your first parenthesis is in the wrong spot:
#!/usr/bin/env perl
use warnings; # Pardon the boilerplate
use strict;
use feature 'say';
use File::stat;
use Time::Piece;
my $format = '%Y%m%d%H%M';
say localtime(stat($ARGV[0])->mtime)->strftime($format);
热门帖子
热门github
6
Re "Your first parenthesis is in the wrong spot", That's not actually the problem. The placement of the parenthesis is correct. The problem is that the omitted parens around print are required here because
print (...)->strftime($format);means( print(...) )->strftime($format);