對文件內容做修改

kfcdog0419

請問各位先進

我今天想對一個文件作修改，用正規找到匹配的行之後在該行之下一行print出想要的字串

不過只要對第一個匹配的做就好了，之後就退出

一直失敗> <

EX.我的輸入檔案
      aaaaaa bbbbbbb cccccccc
      fffffffff ggggggg hhhhhhh
      aaaaaa ddddddd eeeeeee

修改後變成
      aaaaaa bbbbbbb cccccccc
      right!!!
      fffffffff ggggggg hhhhhhh
      aaaaaa ddddddd eeeeeee

該如何寫?

謝謝各位

MMMIX

回复 1# kfcdog0419


    把你的代码贴上来看看。

kfcdog0419

#!/usr/bin/perl
my $file = $ARGV[0];

open my $info7, $file or die "Could not open $file: $!";
open (OUTFILEA,">modify_$file");
while(<$info7>)
{
        
    if($line2=~ m/aaaaaa/){
         
                               
      }
            
             print OUTFILEA "$_";   
}   

close $info7;
close OUTFILEA;
========================================================================
目前就是原檔案在print一次
我該怎麼把匹配$line2行的下一行print出 right!!!
只要第一次匹配的就好

jason680

回复 3# kfcdog0419

1. add
  use strict;
  use warnings;

2. $line2 ?
   

MMMIX

回复 3# kfcdog0419


    Try this:

1. 
   
2. #!/usr/bin/perl
   
3. 
   
4. use warnings;
   
5. use strict;
   
6. 
   
7. my $already_seen;
   
8. 
   
9. while (<DATA>) {
   
10.         if ((not $already_seen) and m/aaaaaa/) {
    
11.                 print;
    
12.                 print "right!!!\n";
    
13.                 $already_seen = 1;
    
14.         }
    
15.         else {
    
16.                 print;
    
17.         }
    
18. }
    
19. 
    
20. __DATA__
    
21. aaaaaa bbbbbbb cccccccc
    
22. fffffffff ggggggg hhhhhhh
    
23. aaaaaa ddddddd eeeeeee
    

复制代码

kfcdog0419

回复 5# MMMIX

大大以下是我的程式
=============================================================
open my $info2, "modify_$file" or die "Could not open $file: $!";
open (OUTFILEQAAA, ">result_$file");
for (my $i=0; $i<@uniq_net4; $i++){
while(<$info2>)
{
  
  
  
    if((not $already_seen) and m/\(([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\)\s+([^\s]+)\s+m=1\s+w=([^\s\(\)]+)\s+l=([^\s]+)\s+multi=1/){
         
        my $lookfor = $uniq_net4[$i];           
        if($4 eq $lookfor){
        
               
        
                $x_aa = 0.68e-6+$9+($size_net4[$i]-1)*($9+0.38e-6);        
               
               
                $y_pw = $8+2*((1.07e-6+0.3e-6+0.27e-6)*0.9);                              
                $x_pw = ($x_aa+2*(0.6e-6+0.3e-6+0.27e-6))*0.9;
                $a_pw = $x_pw*$y_pw;
                $p_pw = 2*($x_pw+$y_pw);
               
                $x_dw = ($x_aa+2*(0.6e-6+0.3e-6+0.27e-6+2e-6+1.5e-6))*0.9;
                $y_dw = $8+2*((1.07e-6+0.3e-6+0.27e-6+2e-6+1.5e-6)*0.9);
                $a_dw = $x_dw*$y_dw;
                $p_dw = 2*($x_dw+$y_dw);
               
                print OUTFILEQAAA;
                print OUTFILEQAAA "// $uniq_net4[$i] is found in $size_net4[$i] lines \n";
                print OUTFILEQAAA "Dpw_$uniq_net4[$i] ( $uniq_net4[$i] iso$i ) pwdnw_iso area=$a_pw pj=$p_pw\n";
                print OUTFILEQAAA "Ddnw_$uniq_net4[$i] ( iso$i 0 ) dnwpsub_iso area=$a_dw pj=$p_dw\n\n";
                $already_seen = 1;            
               
               
        
               
        }
               
      }
      else {
                print OUTFILEQAAA;
        }     
}
}

================================================================
我一個@uniq_net4會print出一組data
我現在都只有$uniq_net4[0]成功印出

改如何修改 哪裡搞錯了!

謝謝各位大大

   

pitonas

{:2_172:}

1. for (my $i=0; $i<@uniq_net4; $i++){
   
2. while(<$info2>)
   
3. {

复制代码

1. my @info2 = <$info2>;
   
2. for (my $i=0; $i<@uniq_net4; $i++){
   
3.     for (@info2){

复制代码

回复 6# kfcdog0419


   

MMMIX

回复 6# kfcdog0419


    看你这代码的意思，是要用 @uniq_net4 里面的每个元素把整个 modify_$file 都处理一遍？如果确实是这样的话，应该这么写代码：

1. 
   
2. open my $info2, "modify_$file" or die "Could not open $file: $!";
   
3. open (OUTFILEQAAA, ">result_$file");
   
4. my $already_seen;
   
5. foreach my $lookfor (@uniq_net4) {
   
6.         while(<$info2>)
   
7.         {
   
8. 
   
9. 
   
10. 
    
11.                 if((not $already_seen) and m/\(([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\s+([^\s]+)\)\s+([^\s]+)\s+m=1\s+w=([^\s\(\)]+)\s+l=([^\s]+)\s+multi=1/){
    
12. 
    
13.                         if($4 eq $lookfor){
    
14. 
    
15. 
    
16. 
    
17.                                 $x_aa = 0.68e-6+$9+($size_net4[$i]-1)*($9+0.38e-6);        
    
18. 
    
19. 
    
20.                                 $y_pw = $8+2*((1.07e-6+0.3e-6+0.27e-6)*0.9);                              
    
21.                                 $x_pw = ($x_aa+2*(0.6e-6+0.3e-6+0.27e-6))*0.9;
    
22.                                 $a_pw = $x_pw*$y_pw;
    
23.                                 $p_pw = 2*($x_pw+$y_pw);
    
24. 
    
25.                                 $x_dw = ($x_aa+2*(0.6e-6+0.3e-6+0.27e-6+2e-6+1.5e-6))*0.9;
    
26.                                 $y_dw = $8+2*((1.07e-6+0.3e-6+0.27e-6+2e-6+1.5e-6)*0.9);
    
27.                                 $a_dw = $x_dw*$y_dw;
    
28.                                 $p_dw = 2*($x_dw+$y_dw);
    
29. 
    
30.                                 print OUTFILEQAAA;
    
31.                                 print OUTFILEQAAA "// $uniq_net4[$i] is found in $size_net4[$i] lines \n";
    
32.                                 print OUTFILEQAAA "Dpw_$uniq_net4[$i] ( $uniq_net4[$i] iso$i ) pwdnw_iso area=$a_pw pj=$p_pw\n";
    
33.                                 print OUTFILEQAAA "Ddnw_$uniq_net4[$i] ( iso$i 0 ) dnwpsub_iso area=$a_dw pj=$p_dw\n\n";
    
34.                                 $already_seen = 1;            
    
35. 
    
36. 
    
37. 
    
38. 
    
39.                         }
    
40. 
    
41.                 }
    
42.                 else {
    
43.                         print OUTFILEQAAA;
    
44.                 }     
    
45.         }
    
46.         $already_seen = undef;
    
47.         seek $info2, 0, 0;
    
48. }
    

复制代码