perl中如何將匹配上的多行內(nèi)容打印到文件中？

plabgh

您好！咨詢您一個(gè)perl的問題。
$oldname文件的文本內(nèi)容如下所示：

.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以上的內(nèi)容全部通過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文件中打印的為什么不是我想要的內(nèi)容，而是整個(gè)$oldname文件的內(nèi)容拷貝，求各位指道。
謝謝。

MMMIX

回復(fù) 1# plabgh


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

plabgh

如果我想匹配的是.data section layout以下，Memory Map：以上的文本內(nèi)容，那么其中匹配冒號':'，是不是該在冒號前面也加一個(gè)反斜杠？
是不是 $line =~ /Memory Map\:/  這樣???
謝謝
回復(fù) 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;

復(fù)制代碼

plabgh

高手，麻煩您有空了幫我看看這個(gè)問題，謝謝。
http://www.72891.cn/thread-4186561-1-1.html
回復(fù) 2# MMMIX


   

xiaoxingan99

回復(fù) 2# MMMIX

按照你的意思，應(yīng)該下面的寫法就行吧？但是.data和.sbss2這兩行也打印出來了，怎么去掉他們呢
    while(<DATA>){
print if(/\.data section layout/../\.sbss2 section layout/);
}

MMMIX

回復(fù) 6# xiaoxingan99


    碰到它們不打印就是了.

xiaoxingan99

回復(fù) 7# MMMIX


    再加一層if對吧？謝謝！
我以為有別的參數(shù)可以直接干掉呢

sunzhiguolu

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

復(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;

復(fù)制代碼