如何將系統日期附加到perl中的文件名？

Question

如何在perl中追加系統日期到文件名？

因爲我對perl編程非常陌生，你能給我一個簡單的例子，上面的查詢。

Answer 1

這可能會幫助你出去！

#!/usr/bin/perl 
my $date=`date +%Y%m%d`; 
chomp($date); 
my $source_file="/tmp/fileName_.tgz"; 
my $destination_file="/misc/fileName_" . $date . ".tgz"; 
print "$source_file\n"; 
print "$destination_file\n"; 
system("sudo mv /tmp/fileName_.tgz /misc/fileName_$date.tgz"); 

或試試這個

my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); 
$year += 1900; 

my $out = "$dir/$host-$mday-$mon-$year" 

或這一個

# grab the current time 
my @now = localtime(); 

# rearrange the following to suit your stamping needs. 
# it currently generates YYYYMMDDhhmmss 
my $timeStamp = sprintf("%04d%02d%02d%02d%02d%02d", 
         $now[5]+1900, $now[4]+1, $now[3], 
         $now[2],  $now[1], $now[0]); 

# insert stamp into constant portion of file name. 
# the constant portion of the name could be included 
# in the sprintf() above. 
my $fileName = "File$timeStamp.log"; 

Answer 2

從POSIX模塊strftime()功能給出了一個簡單的方法來得到你想要的任何格式的日期。

#!/usr/bin/perl 

use strict; 
use warnings; 
use 5.010; 
use POSIX 'strftime'; 

my $date = strftime '%Y-%m-%d', localtime; 
say $date; 

然後，您可以在文件的文件名中使用該字符串。如果您正在重命名文件，則可以使用File::Copy模塊中的move()。