求解一段用于批量更改文件名的代码

gentoo2011

1. #!/usr/bin/perl -w
   
2. 
   
3. use strict;
   
4. use IO::File;
   
5. 
   
6. my @handlepairs;
   
7. 
   
8. foreach my $file ( glob('*.pm') ) {
   
9.     (my $out = $file) =~ s/\.pm$/.out/;
   
10.     push @handlepairs, [
    
11.         (IO::File->new('<$file') || die),
    
12.         (IO::File->new('>$out') || die),
    
13.     ];
    
14. }
    
15. 
    
16. while (@handlepairs) {
    
17.     @handlepairs = grep {
    
18.         if (defined(my $line = $_->[0]->getline)) {
    
19.             print { $_->[1] } $line;
    
20.         } else {
    
21.             0;
    
22.         }
    
23.     } @handlepairs;
    
24. }

复制代码

这段是《Intermediate Perl》中的示例代码，用于把同一目录下的所有以.pm后缀的文件更名为以.out为后缀，可是一运行程序，就提示:
“Died at changename line 11.“
这段程序看起来没有错误，如果当前目录下没有以.pm结果的文件，也不会出现错误提示，不知道是什么原因，求高手们指点，谢谢！

ttcn_cu

动手调试下，
把die 改成 die $!

2gua

权限问题。

gentoo2011

回复 2# ttcn_cu

谢谢你的提示，我添加了$!后，没有那个提示了，可是又提示：
No such file or directory at changename line 11.

同一目录下还有很多的pm文件呢，怎么会有这个错误提示呢？

gentoo2011

回复 3# 2gua

现在我把目录中的所有的pm文件的权限都修改为777了，并且把包含这些文件的文件夹也改成了777权限，可是现在又出现了：
No such file or directory at changename line 11.

2gua

回复 5# gentoo2011


    先建好路径。

yybmsrs

回复 1# gentoo2011


    '<$file'  => "<$file"

gentoo2011

回复 6# 2gua

我在文件中glob函数里使用了绝对路经仍然有这个提示，即使没有写绝对路径程序也应该是在当前目录里寻找的，不知道什么地方还不对

gentoo2011

回复 7# yybmsrs

非常感谢兄弟的帮助，问题总算解决了，确实是使用双引号～

实在不好意思，刚看见你的回复！