求教一个关于perl的文本处理问题

钢铁孙 · 发表于 2017-5-2 20:02:50

您需要登录才可以下载或查看，没有账号？注册

x

本帖最后由钢铁孙于 2017-5-2 20:05 编辑

我想将几个程序名，比如a.v,b.v,c.v插入到目录d下的各个程序文件（都是Verilog程序）的第一行并换行，用perl或者bash shell怎样实现？

li5panlong · 发表于 2017-5-2 20:51:47

直接cat可以不。
或者perl里循环open <FILE>,再print进去。

钢铁孙 · 发表于 2017-5-2 21:08:47

回复 2# li5panlong

求代码，我比较菜只能看懂perl

shinefuture · 发表于 2017-5-4 10:11:15

cat a.v target.v >new_target.v

chenfengrugao · 发表于 2017-5-4 19:29:03

回复 4# shinefuture

my @files = `ls -1 ./d/*.v`;
foreach my $file (@files){ chomp($file);
system("cat a.v b.v c.v ./d/$file > ./d/$file_new.v");
}

mndzjsjczex · 发表于 2017-5-5 08:57:17

谢谢，学习了

戴尔卡耐基 · 发表于 2017-5-27 12:08:44

my @files = glob ‘./d/*.v`;
foreach my $file (@files){ chomp($file);
system("cat a.v b.v c.v ./d/$file > ./d/$file_new.v");
}

[求助] 求教一个关于perl的文本处理问题