正则匹配问题

sunzhiguolu

1. perl -ne 'BEGIN{$\="\n"}print $1 while(/(name\d)/g)' f

复制代码

104359176

用全文本匹配就简单多了：

1. use 5.020;
   
2. use File::Slurp qw(read_file);
   
3. my $text = read_file 'sample.txt';

复制代码

为什么非要用文件句柄？这种东西对处理问题没有什么实质帮助。

除非非常大的文件，用文件句柄来减小内存占用。

hztj2005

1. #!/usr/bin/perl
   
2. 
   
3. while(<DATA>)
   
4. {
   
5.          chomp;
   
6.          while(/name(\d+)/g)
   
7.          {
   
8.                 print "name"."$1"."\n";
   
9.          }
   
10. }
    
11. 
    
12. __DATA__
    
13. name1;name2;name3
    
14. id1;name4
    
15. name5,name6
    

复制代码

sunzhiguolu

1. echo 'name1;name2;name3
   
2. id1;name4
   
3. name5,name6'|perl -0pe 's/\b((?!n).)+?(?=n)/\n/gs'

复制代码

sunzhiguolu

1. echo 'name1;name2;name3
   
2. id1;name4
   
3. name5,name6'|perl -0ne 'print join("\n",@a) if(@a=/name\d/g)'

复制代码

name1
name2
name3
name4
name5
name6