求perl小程序

nulijq

需求如下：
在一目录下有如下文件：aaa_12_20120501001.bat,bbb_13_20120501002.bat,.......
此perl小程序要接受传过来的20120501001形式参数，匹配到aaa_12_20120501001.bat文件，对这个文件进行，修改，在每行的最后增加一列固定值，即：20120501001
文件原内容形式为：20120501,345,124,67,89 修改后的形式为：20120501,345,124,67,89 ,20120501001
                                                                                     20120501,445,114,23,34,20120501001
                                                                                      ...........



麻烦各位大侠了！

nulijq

帮帮忙，没有人会吗？

kk861123

难点在哪呢？替换吗？

1. my $parm = 20120501001;
   
2. while (<DATA>) {
   
3.         s/$/,$parm/;
   
4.         print;
   
5. }
   
6. 
   
7. __DATA__
   
8. 20120501,345,124,67,89
   
9. 20120501,445,114,23,34

复制代码

nulijq

回复 3# kk861123


    我如何接受传过来的参数，并匹配对应的文件，然后再修改该文件呢？

perlnewbie

nulijq 发表于 2012-06-12 18:27
回复 3# kk861123

你要是命令行输入参数,就是用@ARGV数组 ,
glob"*.bat"得到文件列表,匹配这个列表就可.