将文件名列添加到文件 perl答案

【问题标题】：add filename column to file perl将文件名列添加到文件 perl
【发布时间】：2014-10-30 18:31:09
【问题描述】：

我的目录

1.csv
2.csv
3.csv

我正在尝试捕获目录中的每个文件名，并将其与一些附加文本和列一起打印到附加列中的相应文件中。

测试数据

hello,josh,12345,2014-10-30

代码

my $directory = 'C:\directory';

opendir( DIR, $directory );
my @files = readdir(DIR);
closedir(DIR);
foreach (@files) {
    print $_, "\n";
}
while (<>) {
    #Do whatever here
    print;
}

期望的结果

1.csv

ID_1234,1.csv,Copmany,hello,josh,12345,2014-10-30

2.csv

ID_1234,2.csv,Copmany,hello,josh,12345,2014-10-30

目前的结果

.
..
1.csv
2.csv
3.csv
hello,josh,12345,2014-10-30

我还想在目录中的所有文件上执行这个脚本。

【问题讨论】：

ID_1234 是从哪里来的？
ID_1234 是一个附加的文本字符串，我想用它连接我的文件名
在你opendir之后，你应该读两遍并忽略返回值。您将始终在第一时间收到. 和..。所以阅读两次以跳过它们，然后进入你的while循环来处理实际的文件。或者，正如有人无疑会指出的那样，使用文件 glob `glob('*.csv') 来模式匹配要处理的文件 anmes。

标签： windows perl while-loop opendir

【解决方案1】：

从命令行使用 perl，

perl -i~ -F, -lane "BEGIN{$, =','; @ARGV=glob pop} print 'ID_1234',$ARGV,'Copmany',@F" *.csv

或

perl -i~ -pe "BEGIN{ @ARGV=glob pop} s|^|ID_1234,$ARGV,Copmany,|" *.csv

或

local $^I = "~";
local @ARGV = glob("C:\\directory\\*.csv");

while (<>) { 
  s|^|ID_1234,$ARGV,Copmany,|;
  print;
}

【讨论】：

如何将其添加到程序中并实现到 while 循环中？
我选择了@mpapec 的答案，所以我可以使用 ARGV 作为存储变量。它创造了奇迹！但是，我没有在 's|^|ID_1234,$ARGV,Copmany,|;' 上面发布正则表达式，而是将我的一个连接字段 = ARGV，即 $flds[??]= $ARGV;对于附加文本，我制作了几个虚拟列。 IE。 $flds[??] =~ s/^.*?$/ID_1234/;和 $flds[??] =~ s/^.*?$/Company/;然后，您可以加入字段以创建该文本字符串。再次感谢！

【解决方案2】：

怎么样：

my $directory = 'C:\directory';

opendir( DIR, $directory );
my @files = readdir(DIR);
closedir(DIR);
foreach (@files) {
   print qq(ID_1234,$_,Copmany,hello,josh,12345,2014-10-30\n);
}

【讨论】：