将文件名列添加到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，科普隆，你好，乔什，12345,2014-10-30
- 2.csv ID_1234,2.csv，科普隆，你好，乔什，12345,2014-10-30
当前结果
.
..
1.csv
2.csv
3.csv
hello,josh,12345,2014-10-30我还想在dir中的所有文件上执行这个脚本。
回答 2
Stack Overflow用户
回答已采纳
发布于 2014-10-30 18:39:27
使用命令行中的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;
}Stack Overflow用户
发布于 2014-10-30 19:05:39
不如：
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);
}页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/26660726
复制相关文章
相似问题
腾讯云开发者
