如何在perl中为两个不同名称的txt文件制作脚本

Question

我想在两个相似的文件中进行相同的计算，但我不想将每个文件的代码加倍，也不想为此创建两个脚本。

my $file = "file1.txt";
my $tempfile = "file1_temp.txt";
if (not defined $file) {
    die "Input file not found";
}

open(my $inputFileHandler, '<:encoding(UTF-8)', $file)
  or die "Could not open file '$file' $!";
  
open(my $outs, '>', $tempfile) or die $!;

/*Calculations made*/

close($outs);
copy($tempfile,$file) or die "Copy failed: $!";
unlink($tempfile) or die "Could not delete the file!\n";
close($inputFileHandler);

所以我想对 file2.txt_temp 进行精确计算并将其复制到 file2.txt 有没有办法在不为 file2 再次编写代码的情况下做到这一点？

非常感谢。

Answer 1

将您的代码编写为 Unix 过滤器。 从STDIN读取数据并将其写入STDOUT 。 你的代码会更简单，你的程序会更灵活。

#!/usr/bin/perl

use strict;
use warnings;

while (<STDIN>) {
  # do a calculation using the data that is in $_
  print $output_data
}

聪明之处在于您如何调用程序：

$ ./my_clever_filter < file1.txt > file1_out.txt
$ ./my_clever_filter < file2.txt > file2_out.txt

请参阅Unix 过滤器模型：什么、为什么和如何？ 了解更多信息。

Answer 2

假设你的代码写得很好（不操作任何全局变量，......）你可以使用 for 循环

foreach my $prefix ('file1', 'file2') {
    my $file = $prefix . ".txt";
    my $tempfile = $prefix . "_temp.txt";
    ...
}

Answer 3

有一个 Perl 特性是专门为这样的情况设计的，那就是：

$ perl -pi -e'/*Calculations made*/' file1.txt file2.txt ... fileN.txt

松散地称为“就地编辑”，它基本上执行您的代码所做的工作：它写入临时文件，然后覆盖原始文件。

这会将您的计算应用于命名为参数的文件。 如果您有复杂的计算，您可以将它们放在一个文件中并跳过-e'....'部分

$ perl -pi foo.pl file1.txt ...

举例来说，您的“计算”包括将每对数字增加 1：

s/(\d+) (\d+)/($1 + 1) . ($2 + 1)/ge

你会做任何一个

$ perl -pi -e's/(\d+) (\d+)/($1 + 1) . ($2 + 1)/ge' file1.txt file2.txt
$ perl -pi foo.pl file1.txt file2.txt

其中foo.pl包含代码。

请注意， -i开关具有破坏性，因此请在运行该命令之前进行备份。 您可以提供备份扩展来保存备份，但如果再次运行该命令，该备份将被覆盖。 例如-i.bak 。

• -p在代码周围放置一个while (<>)循环，然后print每一行，
• -i.bak对原始文件进行编辑，并保存带有扩展名的备份（如果提供）。