Perl Variable Cocatenation

Question

Я просто пытаюсь изучить PERL. Я пробовал эту линию, но конкатенация не была выполнена.

$host=qx(hostname -s); 
my $day=qx(date +%A); 
$fileType="$host-$day.tgz"; 
print $fileType; 

Когда я выполнении этого я получить выход, как, один на один

ldap 
-Thursday 
.tgz 

Но мне нужен выход, как Ldap-Thursday.tgz Пожалуйста, помогите мне в этом. Спасибо заранее.

Answer 1

qx возвращает строку, включая окончательную новую строку. Удалите ее с chomp:

$host = qx{hostname -s}; 
chomp $host; 

Обратите внимание, что Sys::Hostname обеспечивает hostname подпрограмму, которая уже удаляет любые нежелательные пробелы.

Аналогичным образом, вы можете использовать localtime->fullday с Time::Piece вместо того, чтобы звонить date +%A.