字符串匹配修改,求助

hello|world

一个文件的内容如下:
#a = 1,x,...
#a = 2,x,...
a = 3,x,...
#a = 4,x,...
a = 5,x,...

需求是这样的, 参数条件为1~5中的一个, 匹配1~5的行, 如果该行第一个字符为#则删除#, 如果不是#则添加一个#号;

例子: 输入参数4 则将#a = 4,x,... 的#号去掉, 文件内容变成:
#a = 1,x,...
#a = 2,x,...
a = 3,x,...
a = 4,x,...
a = 5,x,...

如果再输入参数5,则将a = 5,x,... 补充#号, 文件内容变成:
#a = 1,x,...
#a = 2,x,...
a = 3,x,...
a = 4,x,...
#a = 5,x,...

MMMIX

回复 1# hello|world


    Perl 的特殊变量 $NR 是当前正在读的文件的行号。知道了行号，匹配一下，做相应的修改即可。

MMMIX

回复 1# hello|world


    或者用模块 Tie::File，把文件当作一个数组使用。

pitonas

{:2_168:}小伙伴们, 这个高端大气上档次。
perl script.pl 3
perl script.pl 5
.....

1. #!/usr/bin/perl -w
   
2. $^I = '';
   
3. my $file = 'data';  # file name
   
4. my ($line) = @ARGV;
   
5. @ARGV = $file;
   
6. 
   
7. while (<>) {
   
8.     /^#/ ? s/^#// : s/^/#/ if $. == $line;
   
9.     print;
   
10. }

复制代码

hello|world

非常感谢
perl -i.bak -p -e "/^#/ ? s/^#// : s/^/#/ if /x/i" file

yestreenstars

貌似是酱紫：

1. [root@localhost ~]# cat p
   
2. #!/usr/bin/perl
   
3. use 5.010;
   
4. 
   
5. my @data = <DATA>;
   
6. 
   
7. {
   
8.         print "Please enter a number (1-5): ";
   
9.         chomp(my $n = <STDIN>);
   
10.         $_ = $data[--$n];
    
11.         /^#/ ? s/^#// : s/^/#/;
    
12.         $data[$n] = $_;
    
13.         print @data;
    
14.         redo;
    
15. }
    
16. 
    
17. __DATA__
    
18. #a = 1,x,...
    
19. #a = 2,x,...
    
20. a = 3,x,...
    
21. #a = 4,x,...
    
22. a = 5,x,...
    
23. [root@localhost ~]# ./p
    
24. Please enter a number (1-5): 4
    
25. #a = 1,x,...
    
26. #a = 2,x,...
    
27. a = 3,x,...
    
28. a = 4,x,...
    
29. a = 5,x,...
    
30. Please enter a number (1-5): 5
    
31. #a = 1,x,...
    
32. #a = 2,x,...
    
33. a = 3,x,...
    
34. a = 4,x,...
    
35. #a = 5,x,...
    
36. Please enter a number (1-5): ^C
    
37. [root@localhost ~]#

复制代码