写个perl脚本，在文件里的每一行前面加一个单词并保存到原文件

好的，这是一个简单的Perl脚本，它可以读取一个文件，将每一行前面加上一个单词，然后将修改后的内容保存回原文件。

#!/usr/bin/perl

# 打开文件
open(FILE, "<file.txt") or die "无法打开文件: $!\n";

# 打开临时文件
open(TEMP, ">temp.txt") or die "无法打开临时文件: $!\n";

# 读取每一行并加上单词
while (<FILE>) {
  chomp;
  print TEMP "单词 $_: $_\n";
}

# 关闭文件
close(FILE);
close(TEMP);

# 将临时文件重命名为原文件
rename("temp.txt", "file.txt") or die "无法重命名文件: $!\n";

你可以将`file.txt`替换为你要修改的文件名，将`单词`替换为你想要的单词。

相关问题

写个perl脚本，在文件里的每一行前面加一个单词

好的，以下是一个实现这个功能的 Perl 脚本：

#!/usr/bin/perl

use strict;
use warnings;

# 打开文件
open(my $fh, '<', 'input.txt') or die "无法打开文件: $!";

# 读取文件内容并添加单词
while (my $line = <$fh>) {
    chomp $line;
    $line = "单词 " . $line;
    print "$line\n";
}

# 关闭文件
close($fh);

假设你要处理的文件名为 `input.txt`，脚本将打开该文件并在每一行前面添加单词 "单词"。你可以将脚本保存为 `add_word.pl` 并在终端中运行：`perl add_word.pl`。脚本将输出修改后的每一行。