如何在tainted mode下，做到自动format调整？？急

apile

open(MYFILE,">;$file_in";
其他不變...
會出錯的原因是因為你沒有把hash裡面的數值正確的抓出來...
所以perl會告訴你試圖存取為initial的變量..

我debug過你的程序後...如下：

1. 
   
2. !/usr/bin/perl -Tw
   
3. use strict;
   
4. my $file = "./aaa.dat";
   
5. my $file1 = "./aaa1.dat";
   
6. my %hash =();
   
7. 
   
8. open(FF,"$file");
   
9. while((<FF>;)){
   
10.   my $data=$_;
    
11.   next if $data=~/^\#/;
    
12.   chomp($data);
    
13.   $data=~m!\s*(\w+)\s*\|\s*(\d+)\s*\|\s*(\w+)\s*!;
    
14.   my $name = $1;
    
15.   my $age = $2;
    
16.   my $place = $3;
    
17.   ${hash{$name}}{"age"} = $age;
    
18.   ${hash{$name}}{"place"} = $place;
    
19. }
    
20. close(FF);
    
21. 
    
22. &write_file($file1,\%hash);
    
23. 
    
24. sub write_file {
    
25.   my $file_in = shift;;
    
26.   my $hash = shift;
    
27.   my %hash = %{$hash};
    
28.   my($name_in,$age_in,$place_in,$format,$key);
    
29.   my($name_length,$age_length,$place_length);
    
30.   open(FF,">;$file_in");
    
31.   for my $key (keys %hash){
    
32.     $name_in = $key;
    
33.     $age_in = ${$hash{$name_in}}{'age'};
    
34.     $place_in = ${$hash{$name_in}}{'place'};
    
35.     $name_length=length($name_in);
    
36.     $age_length=length($age_in);
    
37.     $place_length=length($place_in);
    
38.    $format = "format FF=\n"
    
39.    . '@' .'<' x $name_length . '|'
    
40.    . '@' . '<' x $age_length . '|'
    
41.    . '@' . '<' x $place_length . "\n"
    
42.    . '$name_in' . ","
    
43.    . '$age_in' . ","
    
44.    . '$place_in' . "\n"
    
45.    . ".\n";
    
46.    print "$format\n";
    
47.    eval($format);
    
48.    write(FF);
    
49.   }
    
50. }
    

复制代码

apile

my %hash;
%hash = %{&read_file()};