help，怎么批量在代码前加入信息？

rxpmcb

在文件的第一行加入#Copyright(C) write by xxx 2007-03-21
如果已经有了就不用添加了
怎么实现呀

flw

同学，问问题不能这么问。
你是不懂如何批量还是不懂如何加入信息还是不懂如何判断已经有了？

rxpmcb

不明白如何加入信息在第一行，我加的每行都有

flw

原帖由 rxpmcb 于 2007-3-21 11:21 发表
不明白如何加入信息在第一行，我加的每行都有

你怎么加的？

rxpmcb

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. $^I = ".bak";
   
5. my $flag = 1;
   
6. while(<>){
   
7.         s/^/##Copyright(C) 2007 by rxp\n/g if($flag and !/^##Copyright/i);
   
8.         $flag = 0;
   
9.         print;
   
10. }
    

复制代码

现在可以了，我以前没有用flag，不过我觉得很别扭，有没什么简单的方法

flw

原帖由 rxpmcb 于 2007-3-21 11:31 发表
[code]
#!/usr/bin/perl

$^I = ".bak";
my $flag = 1;
while(<>){
        s/^/##Copyright(C) 2007 by rxp\n/g if($flag and !/^##Copyright/i);
        $flag = 0;
        print;
...

last if $. > 1;

rxpmcb

原帖由 flw 于 2007-3-21 11:37 发表

last if $. > 1;

能否详细点，last if $.>1 放在哪里呢？我刚学perl，很菜

flw

原帖由 rxpmcb 于 2007-3-21 11:39 发表

能否详细点，last if $.>1 放在哪里呢？我刚学perl，很菜

多试几次。

rxpmcb

原帖由 flw 于 2007-3-21 11:46 发表

多试几次。

提前结束循环不行，运行后文件中只剩余下以前信息的第一行

cookis

就放在while里..
你这样操作只是改变了内存里的内容,,你还要把替换好的文件.再写到文件里去.

不知道我说的对不对..是不是$^I = ".bak";这个变量就是用来备分的..  跟命令行里 -i 选项一样啊.