perl中如何将匹配上的多行内容打印到文件中？

plabgh

您好！咨询您一个perl的问题。
$oldname文件的文本内容如下所示：

.data section layout
Starting        Virtual   File
address Size address offset
---------------------------------

.sbss2 section layout
Starting        Virtual   File
address Size address offset
---------------------------------

.bss section layout
Starting        Virtual   File
address Size address offset
---------------------------------
00000000 00000c 400013


我想把$oldname文件中.data section layout以下，.bss section layout以上的内容全部通过print打印到文件$newname中，该如何操作？
我用下面的代码试了，没搞定。

open(OLDFILE, $oldname) || die "Error\n";
undef $/;
$OldFileString = <OLDFILE>;
$/ = "\n";
close(OLDFILE);

@lines = split(/\n/, $OldFileString );
open(NEWFILE, (">>" . $newname)) || die "Error\n";
foreach $line (@lines) {
if($line =~ (/.data section layout/../.bss section layout/)){
print NEWFILE "$line\n";
}
}
close(NEWFILE);
不知道为什么$newname文件中打印的为什么不是我想要的内容，而是整个$oldname文件的内容拷贝，求各位指道。
谢谢。

MMMIX

回复 1# plabgh


    if 里面的条件要写成 $line =~ /\.data section layout/ .. $line =~ /\.bss section layout/

plabgh

如果我想匹配的是.data section layout以下，Memory Map：以上的文本内容，那么其中匹配冒号':'，是不是该在冒号前面也加一个反斜杠？
是不是 $line =~ /Memory Map\:/  这样???
谢谢
回复 2# MMMIX


   

b114213903

1. #!/usr/bin/perl
   
2. use strict;
   
3. 
   
4. open(IN,"<$oldname");
   
5. open (OUT,">$newname");
   
6. my $flag=0;
   
7. while(<IN>){
   
8.         chomp;
   
9.         if($_ eq '.data section layout'){
   
10.                 $flag=1;
    
11.         }elsif($_ eq '.bss section layout'){
    
12.                 $flag=0;
    
13.         }
    
14.         if($flag){
    
15.                 print OUT "$_\n";
    
16.         }
    
17. }
    
18. close IN;
    
19. close OUT;

复制代码

plabgh

高手，麻烦您有空了帮我看看这个问题，谢谢。
http://bbs.chinaunix.net/thread-4186561-1-1.html
回复 2# MMMIX


   

xiaoxingan99

回复 2# MMMIX

按照你的意思，应该下面的写法就行吧？但是.data和.sbss2这两行也打印出来了，怎么去掉他们呢
    while(<DATA>){
print if(/\.data section layout/../\.sbss2 section layout/);
}

MMMIX

回复 6# xiaoxingan99


    碰到它们不打印就是了.

xiaoxingan99

回复 7# MMMIX


    再加一层if对吧？谢谢！
我以为有别的参数可以直接干掉呢

sunzhiguolu

1. perl -ne '$P=1 if(/\A\.data section layout/);$P=0 if(/\A\.bss section layout/);print if($P)' f

复制代码

华小飞_Perl

直接这样好了~

1. #!/usr/bin/perl
   
2. 
   
3. use warnings;
   
4. use strict;
   
5. 
   
6. open OUTPUT, '>', 'newname.txt'
   
7.         or die "Can't output the file: $!";
   
8. while (<>) {
   
9.         chomp;
   
10.         next if (/.data section layout/);
    
11.         last if (/.bss section layout/);
    
12.         print OUTPUT $_, "\n";       
    
13. }
    
14. close OUTPUT;

复制代码