如何修改文件，只要最后的N行？

7717060

原帖由 寂寞烈火 于 2009-11-9 00:18 发表
越来越看不懂啦

火哥还不睡觉

FunFreeBSD

不好意思，我前面说的有错误。
其实只是父shell的readonly变量在子shell中不是readonly而已，并不是消失了。
我的目的就是父shell的readonly变量在子shell中也是readonly。
不过看来是不行的。

FunFreeBSD

原帖由 haimming 于 2009-11-8 22:02 发表
什么不别扭？
sed -i　别扭吗？

我要在后边跟&&，用EOF没法跟&&

cxfcxf

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. rename "$ARGV[0]", "$ARGV[0].bak";
   
8. open (URL, "$ARGV[0].bak") or die $!;
   
9. open (URLA, ">>$ARGV[0]") or die $!;
   
10. 
    
11. my @array = <URL>;
    
12. @array = reverse @array;
    
13. 
    
14. my $count = 0;
    
15. 
    
16. while ( $count < $ARGV[1] ) {
    
17.     $array[$count] =~ s/$ARGV[2]/$ARGV[3]/;
    
18.     $count++;
    
19. }
    
20. @array = reverse @array;
    
21. foreach (@array) {
    
22.     print URLA $_;
    
23. }
    
24. unlink "$ARGV[0].bak";
    

复制代码

用法
脚本名 文件名 行数 被替换内容 替换内容
./reverse.pl url 3 namipan aaa
类似