我想從通過perl腳本指定的文件

Question

文件數據塊是在類似於下面的文件

edit_file content{ 
     val0  data0 
     val0  data0 
     val0  data0 
     val0  data0 
     val0  data0 
    } 

相同的格式編輯數據的特定塊，我的代碼是

my $temp_hash; 
open FD, "<temp.cfg"; 
@array = <FD>; 
foreach $line (@array) { 
    if ($line =~ /\s+(.*?)\s+(.*)/) { 
     foreach $key (keys %tem) { 
      $temp_hash{$1} = $2; 
     } 
    } 
    print $temp_hash; 
} 
foreach $array (keys $1) { 
    print "$key is $temp_hash{$key}\n"; 
} 

Answer 1

如果你只是想解析你的文件到哈希：

my %data; 
open my $fh, "<", "temp.cfg" or die $!; 
while (my $line = readline($fh)) { 

    if ($line =~ m{^\s+(\S+)\s+(\S+)$}) { 

     $data{$1} = $2; 
    } 
} 
close $fh; 

foreach my $key (keys %data) { 
    print "$key is $data{$key}\n"; 
}