Я использую mkdir в Perl. Это делает 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"; 
    } 
}  

Это работает, в основном. По какой-то причине одному из моих каталогов присваивается имя, которое заканчивается символом?. Следует отметить, что имя каталога, отображаемое в окне терминала, показывает знак вопроса. В finder нет знака вопроса в конце имени этого каталога. Я использую Perl v.5.12.3, на MAc OS 10.7.5.

Answer 1

Файл, из которого вы читаете, имеет строки, заканчивающиеся на CRLF. Вы удаляете LF с chomp, но CR (представленный^M) не удаляется. Вместо chomp; используйте s/\s+\z//;.

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