opendir和rename的bug

davexu2

我有一个文件，名字是name.txt，里面有2列，\t分隔，如下：
AM56-4TS        0508-65
AM56-5TS        0508-66
AM56-6TS        0508-67
AM56-7TS        0508-68
我想通过这个，找到对应的名字，并改成后者，像下面这样，第一列是原始文件，第二类是要改成名字的文件，对应name.txt的第一行。
0508-65__Sg-F_A14050_G04_1405170031Y.ab1    AM56-4TS.ab1

脚本源代码如下：
#!usr/bin/perl -w
use strict;

open FILE, "< name.txt";
my %hash;
while (<FILE>) {
        chomp;
    my @a = split;
        $hash{$a[1]} = $a[0];
}
close FILE;
my $dirname = "ab1-1/";
opendir (DIR,$dirname) || die "Error in opening dir $dirname\n";
while (my $filename = readdir (DIR)){
        next unless $filename=~/\.ab1/;
        my @b = split/__/,$filename;
        if (exists $hash{$b[0]}){
                my $newname = "$hash{$b[0]}".".ab1";
                rename ( "$dirname/$filename", "$dirname/$newname");
        }else{
                print "$filename\n";
        }
}
close DIR;
print "$total\n";
运行以后，我发现，所有文件名字都被改对了，但是有如下信息输出到屏幕上：
OF07-11.ab1
OF08-6.ab1
OF07-3.ab1

这不正常啊，因为这是更改名字之后的文件，而我想输出的是没改名字的文件，至少也是原来的文件名字。求大神解惑！

Monox

你不是说opendir和rename的bug吗？那你应该给perl 5的维护者发邮件而不是应该在这里发帖。
不过，如果我是perl 5的维护者的话我会reject你的bug report就是了。而解释你说的现象我建议你盯着你写的代码的if else看三遍，如果看三遍还认为是opendir和rename的bug，不认为是自己的问题的话，建议你再盯着看三遍，如果仍然不认为自己有错的话，我想在我给你指出错误在哪之前就已经有很多人帮你指出了。

doiob

这真是你自己写的？你输出的是你那文件里没有而目录里有的文件。

davexu2

想听听高人怎么解惑呢。回复 2# Monox


   

davexu2

是的，是我写的，就是想确保每个文件都被改对了名字回复 3# doiob


   

davexu2

输出那三个在原文件列表的第二列，而原文见名字里面是没有那三个的。回复 3# doiob


   

Monox

回复 4# davexu2

既然我建议你盯着if else看三到六遍，我就从if else说起吧。
我都建议你盯着它看三到六遍了，看来你应该不理解什么是if else吧（很多时候我们自以为是的我们理解了什么，但是事实是我们常常什么都没有理解）。
    if else 的意思是要么这样，要么那样。不会是你强烈突显出来的至少也可能会是既这样也那样的逻辑。既然if else是要么这样，要么那样，但是绝不会是既这样又那样，那么，对于一个文件名，它当然要么改名成功，要么输出这个文件名，永远也不可能既改名成功又输出那个文件名。所以对于你推论的

这不正常啊，因为这是更改名字之后的文件，而我想输出的是没改名字的文件，至少也是原来的文件名字。

这是绝不可能的，除了你比较挑衅的标题以外，你还特意很有把握的加了一个“至少”来加重你的语句，所以才会出现二楼我那样的回复方式，如果你的标题和语气换一下，我二楼的回复方式肯定也会换，很有可能就没有后续回复的必要了。

好，前面那一段是用来攻击你的“至少”两字这个言论的。接下来说说为什么

这不正常啊，因为这是更改名字之后的文件，而我想输出的是没改名字的文件

。
计算机很终实的，你让它怎样做它就怎样做，不会自作聪明，所以它给你的反应是很正常的，并不是不正常的。而另一方面，之所以会[quote]因为这是更改名字之后的文件，而我想输出的是没改名字的文件[/code]是因为你又没有没改名字的文件，当然没有输出了。那输出的是什么呢？它们还真是没改名字的文件。是的，这里我没打错字。那个目录下所有的文件都被你改名了，但是改名后的文件也在那个目录下，那些文件会被当作新的需要改名字的文件进行处理，而根据你的改名列表，那些新需要处理的文件并不会（再）被改名一次，因此就成了（新的）没改名字的文件。

至于导致上面这种现象的原因并不是opendir的bug，也不是rename的bug，问题的原因在于你不理解函数调用和循环是这样实际工作的。关于此点我不想继续扩展了，我直接给建议吧，可能你可以从我给的建议要自己体会出我这里所说的工作原理，你不理解的话也无所谓，因为反正我肯定是不解释的，其他人可能会替你解释了，那是他们的自由，我是觉得有很多东西是必须得自己去体会去领悟才会有成长的。

所以，要达到你真正的目的，你有两条路可走，一种是rename的时候，源目录和目标目录不要设成一样的，第二种是不要在while里readdir，而又在同一个while里改变这个dir里的内容（是不是觉得和小骆驼里说的在foreach里改变foreach列表的值那句话很像），你可以先把readdir的内容全存起来，比如存在一个数组里，然后对这个数组里的文件名做循环，循环的时候就是该改名的改名，该输出的输出了。

davexu2

你说的这个情况很可能啊，不过为什么值单单输出那3个呢，我删了3个文件的任意一个，最终的结果是输出后另外2个，这是为什么？100个文件，算上 . 和 .. ，加上那三个，while循环一共读了105个文件，按照你说的，如果循环进行下去，为什么仅仅多读了3个，而且是特定的3个？看你好像懂得很多的样子，也谢谢你的建议，但是那没用啊，我又没改错文件，而且用glob 或者其他方式改就不会出现这个问题，谁都知道，我更想知道发生着个问题的原因。如果你是真大神，能不能解惑呢？回复 7# Monox


   

Monox

davexu2 发表于 2014-05-21 20:50
你说的这个情况很可能啊，不过为什么值单单输出那3个呢，我删了3个文件的任意一个，最终的结果是输出后另外2个，这是为什么？100个文件，算上 . 和 .. ，加上那三个，while循环一共读了105个文件，按照你说的，如果循环进行下去，为什么仅仅多读了3个，而且是特定的3个？看你好像懂得很多的样子，也谢谢你的建议，但是那没用啊，我又没改错文件，而且用glob 或者其他方式改就不会出现这个问题，谁都知道，我更想知道发生着个问题的原因。如果你是真大神，能不能解惑呢？

是啊，“谁都知道”，就我不知道，而且我从头到尾都没说过我是大神，就像我不喜欢你的标题和描述方式一样，你不喜欢我相对应的回复这很正常。就连之前的回复我也是出于自愿，因为没有义务，我完全可以不了你。明显你没有真想让我“解惑”的诚意，我也就没必要回答你的问题。不光我不会再回复这个帖子，以后所有你的帖子我都不会回复。

rubyish

1: 3楼 doiob 解惑了。
2: Monox 建议你盯着你写的代码的 if else 看三遍
3: 建议你盯着 3楼 看三遍