perl - 我在 Perl 中使用 mkdir。它使目录，但有时它会添加一个？到目录名称的末尾

Question

这是代码：

foreach my $name ( @unique_gene_list ) {
    print "$name\n";
    chomp $name; 

    unless(mkdir $name, 0700) {
        die "Unable to create directory called $name\n";
    }
}     

这主要是有效的。出于某种原因，我的一个目录的名称以 ? 结尾。我应该注意到终端窗口中显示的目录名称显示了问号。在查找器中，该目录名称的末尾没有问号。我在 MAC OS 10.7.5 上使用 Perl v.5.12.3。

Answer 1

您正在读取的文件有以 CRLF 结尾的行。您正在使用 删除 LF chomp，但未删除 CR（由 ^M 表示）。而不是chomp;，使用s/\s+\z//;.

while (<$fh>) {
   s/\s+\z//;
   ...
}