open中插入变量改正

herer

你说的两个问题都无法重现

1. #!/usr/local/bin/perl
   
2. use strict;
   
3. 
   
4. open("NAME","name.txt");
   
5. my %names;
   
6. while(<NAME>){
   
7.         chomp;
   
8.         my @name=split/\s+/;
   
9.         $names{$name[1]}=$name[0];
   
10. }
    
11. close NAME;
    
12. foreach my $key(sort(keys %names)){
    
13.         Result ($key,$names{$key});
    
14. }
    
15. 
    
16. 
    
17. sub Result{
    
18. my ($key,$value)=@_;
    
19. print "$key,$value\n";
    
20. my $new_name="new"."$key";
    
21. open("NAME1","$key");
    
22. open("NEWNAME",">","$new_name")or die;
    
23. 
    
24. while (<NAME1>){
    
25.         print NEWNAME "$_";
    
26. }
    
27. my $new_name="new"."$value";
    
28. open("NAME1","$value");
    
29. open("NEWNAME",">","$new_name")or die;
    
30. 
    
31. while (<NAME1>){
    
32.         print NEWNAME "$_";
    
33. }
    
34. }

复制代码

herer

上面贴的是你自己贴的代码，建文件没有出错，写内容也没有出错。
要不把报错内容贴出来吧。