更改文件名的Perl脚本

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

SVSEED set randomly from command line: -729040569

现在我需要一个perl脚本来读取这个数字（

-729040569

），同时它也必须附加到我的日志文件中。如何使用perl脚本实现这一点。

my$filename='tc1.log'；
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;

打开（FILE，'你尝试了什么？怎么失败的？你看过
重命名
了吗？没有，我没有试过。我正在尝试，没有，我没有看过重命名。你问我们什么？你希望我们为你编写整个脚本吗？还有，这与
makefile
标记有什么关系？现在我将日志文件名改为ncverilog.log it如果你学习并理解了这些代码，我想很明显你需要改变哪一行。我们不是来帮你思考的。谢谢你，我会的我试试看