Нужно создать каталог внутри каталогов в Perl

Question

Я пытаюсь создать каталог внутри иерархии каталогов в Perl. Ниже приведен код, который я написал:

use strict;
use warnings;

print "Enter directory name\n";
my $dir = <STDIN>;

my $newDir = "/home/test/test1/test2/$dir";
mkdir $newDir;

Я хочу, чтобы пользователь вводил имя каталога, который он хочет создать.

Но после запуска этого кода он создает каталог вместе с ним. со знаком ?. Например, если я хочу, чтобы имя каталога было ABC11, он создает каталог с именем ABC11?

Может кто-нибудь сообщить мне, что я не так делаю в коде.

Спасибо

Answer 1

$dir содержит ABC11␊ (ABC11, за которым следует перевод строки), поэтому вы создаете /home/test/test1/test2/ABC11␊. Добавьте chomp($dir);, чтобы удалить перевод строки из $dir.