perl - Perl では mkdir を使用しています。dir を作成しますが、場合によっては ? を追加します。ディレクトリ名の末尾まで

Question

コードは次のとおりです。

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

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

これはほとんどの場合機能します。何らかの理由で、ディレクトリの 1 つに ? で終わる名前が付けられています。ターミナル ウィンドウに表示されるディレクトリ名に疑問符が表示されることに注意してください。ファインダでは、そのディレクトリ名の末尾に疑問符はありません。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//;
   ...
}