intermediate perl 第8章 练习2 求解

churchmice

加上

1. 
   
2. use strict;
   
3. use warnings;
   

复制代码

你就会发现问题的所在，你看出下面的代码问题在什么地方？

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use IO::File;
   
6. my $fh =new IO::File;
   
7. my $a = $fh->open(">a");
   
8. my $b = $fh->open(">b");
   
9. print $a "To file a\n";
   
10. print $b "To file b\n";
    

复制代码

这和你代码是同一类型的
如果看不出就运行一下，结果和你的是类似的
但是会给你个提示
注意$fh->open的返回值，并不是你想象的那样，返回一个文件句柄，而是返回1（成功）
解决方法很简单
用

1. 
   
2. IO::File->new
   

复制代码

就可以了
下面的代码就是可以的

1. 
   
2. #!/usr/bin/perl
   
3. use strict;
   
4. use warnings;
   
5. use IO::File;
   
6. my $file = "justatest";
   
7. my $fh =IO::File->new(">$file");
   
8. print $fh "To file just a test\n"
   

复制代码

[ 本帖最后由 churchmice 于 2008-6-5 21:56 编辑 ]