求助！！！~~~~

yizhengming

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. open FD, "DATA";
   
4. my $line = do {local $/, <FD>};
   
5. $line =~ s/^=+\s*NAME\d*\s*(?=^=+|\Z)//mgs;
   
6. print "$line";
   
7. ___DATA___
   
8. .............
   

复制代码

yizhengming

回复 4# albertkingking

================
NAME*

前面是否有空白？

yizhengming

1. #! /usr/bin/perl -w
   
2. use strict;
   
3. open FD, "DATA";
   
4. my $line = do {local $/, <FD>};
   
5. my @arr = grep { s/^/"="x16/e }
   
6. grep { not /^\s*(NAME\d+)?\s*$/ } split /=+/, $line;
   
7. print @arr;
   

复制代码