Как я могу поставить все в одну строку?

Question

Это мой код:

 open(my $fh, '>', $filename) or die "Could not open file '$filename' $!";
  print $fh "GIF files: \t$gif_nums(Number of files) file(s) $gif_sizes(File size) bytes\n";
  print $fh "HTML files: \t$html_nums file(s) $html_sizes bytes\n";
  print $fh "Total: $total_nums file(s) $total_sizes bytes\n";
  close $fh;

МОЙ вывод идет так:

GIF files: 1
 file(s) 48835 bytes
HTML files: 1
 file(s) 260 bytes
Total: 2 file(s) 49095 bytes

Я хочу вывод, подобный этому:

GIF files:   1    file(s) 48835 bytes
HTML files:  1    file(s) 260 bytes
Total:       2    file(s) 49095 bytes

Как я могу получить этот тип вывода в Perl?

Answer 1

Похоже, переменные $gif_nums и $html_nums, вероятно, представляют собой строки с символом новой строки вместо цифр, поэтому он расширяет один оператор print на две строки.

Использование функции chomp для удаления новой строки из ваших переменных будет хорошим началом.