用于更改文件名的Perl脚本

Question

我有一个名为tc1.log的文件，在该文件中有一行以

开头

SVSEED set randomly from command line: -729040569

现在我想要一个perl脚本来读取数字（-729040569），同时它必须同时附加到我的日志文件[tc1_-729040569.log]。如何使用perl脚本执行此操作。

Answer 1

my $filename = 'tc1.log';
open (FILE, '<', $filename) or die "Can't open $filename: $!";
my $new_name = $filename;
while (my $line = <FILE>) {
  chomp $line;
  if ($line =~ m/SVSEED set randomly from command line: (\S+)/) {
     my $seed = $1;
     $new_name =~ s/.log/${seed}.log/;
     last;
  }
}
close FILE;
rename $filename, $new_name if $filename ne $new_name;