擷取檔案內容輸出到多個檔案問題

kfcdog0419

#!/usr/bin/perl
use strict;
#use warnings;

my $file = $ARGV[0];
open my $info, $file or die "Could not open $file: $!";
my $cell_name;
my $flag = 0;

while( my $line = <$info>)  {   

                if($line=~ m/subckt\s+/ || $flag){
                        $flag =1;
                        if($line=~ m/subckt\s+(\w+)/){
                                $cell_name=$1;
                                print "--->>>>  cell name:".$cell_name."\n\n";   
                        }
                       
                        print $line;  
                         
                }
                if($line=~ m/ends/){
                        $flag =0;
                       
               
}
}
close $info;

====================================================
我把輸入檔案所有subckt到ends的內容都擷取出來
怎麼樣把一段subckt到ends的內容輸出到一個檔案~
也就是說有幾個subckt到ends就會有幾個輸出檔案
檔案名稱用$cell_name

目前差這一步 該如何修改

謝謝各位大大!!!

cinanine

1. my $file = $ARGV[0];
   
2. open my $info, $file or die "Could not open $file: $!";
   
3. my ( $flag, $fh, $cell_name ) = 0;
   
4. 
   
5. while ( my $line = <$info> ) {
   
6.     if ( $line =~ m/subckt\s+/ || $flag ) {
   
7.         $flag = 1;
   
8.         if ( $line =~ m/subckt\s+(\w+)/ ) {
   
9.             $cell_name = $1;
   
10.             open $fh, '>', $cell_name or die $!;
    
11.         }
    
12.         print $fh $line;
    
13.     }
    
14.     if ( $line =~ m/ends/ ) {
    
15.         $flag = 0;
    
16.         close $fh;
    
17.     }
    
18. }
    
19. close $info;

复制代码

xiumu2280

my @data;
if((@data)=$line=~ m/subckt\s+(\w+)/g){
                 print "@data";
}

kfcdog0419

cinanine 发表于 2013-09-03 16:01

再次謝謝cinanine!!! 可以了

kfcdog0419

cinanine 发表于 2013-09-03 16:01

麻煩再請教cinanine大大!!

我如果輸出檔案不要含ends那行的話
該如何修改!!

謝謝

rubyish

试试:

1. #!/usr/bin/perl
   
2. my $file = $ARGV[0];
   
3. open my $info, $file or die "Could not open $file: $!";
   
4. my $F;
   
5. 
   
6. while (<$info>) {
   
7.     /subckt\s+(\w+)/ and open $F, '>', $1;
   
8.     /ends/ or print $F $_;
   
9. }

复制代码

kfcdog0419

回复 6# rubyish

大大 好像會有ERROR耶
   

rubyish

回复 7# kfcdog0419


       這位大大! 怎麼樣的 ERROR ?

philips_ni

对于这种需求： “我把輸入檔案所有subckt到ends的內容都擷取出來” ， 最好的办法是按多行模式进行匹配分割，一会儿上示例程序

philips_ni

$ cat -n test2.pl
     1  use strict;
     2  use warnings;
     3  use Data::Dumper;
     4
     5
     6  exit(main(@ARGV));
     7
     8  sub dumpToFile{
     9      my $record = shift;
    10      my ( $filename ) = ( $record =~ /subckt:\s*(\w+)/);
    11      open my $fd ,">",$filename or die "failed to open $filename,$!";
    12      print $fd $record;
    13      close $fd;
    14  }
    15
    16
    17  sub main{
    18      my $text = <<'END';
    19  subckt: ckpt1
    20  date: 2013-09-01
    21  description: xxxxxxxxxxxx
    22  end
    23  subckt: ckpt2
    24  date: 2013-09-02
    25  description: xxxx
    26  end
    27  subckt: ckpt3
    28  description: xxxxxxxx
    29  date: 2013-09-03
    30  end
    31  END
    32
    33      my @records = split(/(?=subckt)/, $text);
    34      foreach my $record (@records) {
    35          dumpToFile( $record );
    36      }
    37  }
    38
    39

$ perl test2.pl
$ ls
ckpt1  ckpt2  ckpt3  test.pl  test2.pl
$ cat ckpt1
subckt: ckpt1
date: 2013-09-01
description: xxxxxxxxxxxx
end

Fei@HPenvy ~/mycode
$ cat ckpt2
subckt: ckpt2
date: 2013-09-02
description: xxxx
end

Fei@HPenvy ~/mycode
$ cat ckpt4
cat: ckpt4: No such file or directory

Fei@HPenvy ~/mycode
$