open中插入变量改正

jiujiujiu338

1. open("NAME1","$filename1");
   
2. my $newfile="new"."$filename1";
   
3. open ("NEWFILE",">","$newfile");

复制代码

为什么总是显示错误，其中我验证过第一个open没有错误，错误在第二个open,总是不能建立新的文件，而我改为$newfile=“new'."world"，就可行。不知为什么，求解~~

小perl

回复 1# jiujiujiu338
   测试没有问题

    my $filename1="aaa.txt";
    有错误加上or die试试找到错误

jiujiujiu338

问题是这样的，

1. #!/urs/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. open("NAME","name.txt");
   
6. my %names;
   
7. while(<NAME>){
   
8.         chomp;
   
9.         my @name=split/\s+/;
   
10.         $names{$name[1]}=$name[0];
    
11. }
    
12. close NAME;
    
13. foreach my $key(sort(keys %names)){
    
14.         Result ($key,$names{$key});
    
15. }
    
16. 
    
17. 
    
18. sub Result{
    
19. my ($key,$value)=@_;
    
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"."$key";

变为

my $new_name="new"."$value";

时就不能建立新文件，想了好久也没想明白，不知自己把问题说清楚了没有，如果有明白的还请帮忙，多谢~

jiujiujiu338

回复 3# jiujiujiu338


    补充：
其中name.txt中的内容为

01wong.txt 01kan.txt
02wong.txt 02kan.txt

多谢~

jiujiujiu338

回复 4# jiujiujiu338


    大家帮忙看看吧，多谢~~这个问题我想了一晚上了，也想不明白~~~~~(>_<)~~~~

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

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

jiujiujiu338

回复 7# herer


    对，上边程序没有错，但是当我把程序中的

my $new_name="new"."$key";

改为

my $new_name="new"."$value";

就出错了，就不能建立新的文件。Use of uninitialized value $value in string at。。。

leve1031

回复 8# jiujiujiu338
我也改成$value也没错的呀。 同奇怪你为什么运行不过。

jiujiujiu338

回复 9# leve1031


    奇了怪了，我怎么还是不行，从昨晚就不行，尽早还是不行，why,我要疯了