|
发表于 2010-9-13 21:16:39
|
显示全部楼层
可以用perl, 代码如下:- #!/usr/bin/perl
- use warnings;
- $_=<>;
- chomp();
- if ($_ =~/^pattern_/) {
- $i{$_}=1;
- open (FH,">".$_."_".$i{$_}++);
- }else{
- open (FH,">before_pattern");
- }
- print FH $_."\n";
- while(<>){
- chomp();
- if ($_ =~ /^pattern_/) {
- $i{$_} = 1 unless $i{$_};
- close(FH);
- open(FH,">".$_."_".$i{$_}++);
- }
- print FH $_."\n";
- }
复制代码 |
|