在 Perl 代码中处理和生成文件答案

【问题标题】：Handling and generating files in Perl code在 Perl 代码中处理和生成文件
【发布时间】：2014-04-16 19:57:16
【问题描述】：

我有 perl 代码（称为aggregator.pl），它通过命令从名为“testdata.csv”的文件中读取一些数据

open (F,'testdata.csv');  
my @lines=<F>;    
close(F);

为输出打开一个新的文件句柄

open (F1,'>>testdata_aggregates.csv');

并将一些计算的结果附加到此输出文件“testdata_aggregates.csv”。

要启动我的 perl 代码，我只需输入命令提示符：

$ perl aggregator.pl

现在，我有不同的数据文件，称为 20100909.csv 或 20100910.csv应该使用（比如，'20100909.csv'）并且他应该相应地命名输出文件（比如'20100909_aggregates.csv'，基本上，在输入文件名中添加_aggregates）。

关于如何更改我的代码以及如何启动新代码并添加他应该使用的 data_input 文件的名称的任何建议？

【问题讨论】：

【解决方案1】：

只需通过@ARGV 接受参数即可。

您的脚本应该打开：

use strict;
use warnings;
use autodie;

die "Usage: $0 Input_File Output_File\n" if @ARGV != 2;

my ($infile, $outfile) = @ARGV;

稍后在您的文件中

open (F, '<', $infile);

# ...

open (F1,'>>', $outfile);

【讨论】：

【解决方案2】：

人们通常会重写这样的应用程序，它从 STDIN 读取并简单地写入 STDOUT。然后在命令行上调用程序时，可以使用重定向运算符来指定文件：

$ perl aggregator.pl <testdata.csv > testdata_aggregates.csv
$ perl aggregator.pl <20100909.csv > 20100909_aggregates.csv
...

脚本内部发生了哪些变化？我们不打开文件F，而是：my @lines = <>。我们不打印到F1，而是打印到STDOUT，这是隐式选择的：print F1 "foo\n" 变为print "foo\n"。

【讨论】：