Perl простой конкатенации

Question

В следующем коде perl, как объединить pwd со строкой. В следующем выводе в двух разных строках

   $pwd=`pwd`;
   my $string = $pwd . "/.somename";
   print "$string";

Answer 1

Вы только что сделали. Так получилось, что посередине находится символ новой строки.

$pwd=`pwd`;
chomp($pwd);
my $string = $pwd . "/.somename";
print "$string";

Как говорится ... не делай этого. Вы должны использовать cwd()

use Cwd;

my $string = cwd() . "/.somename";
print "$string\n";

Answer 2

$pwd=`pwd`;
chomp $pwd;
my $string = $pwd . "/.somename";
print $string;

Answer 3

Используйте chomp(), например:

my $pwd = `pwd`;
chomp($pwd);
my $string = $pwd . "/.somename";
print "$string";

http://perldoc.perl.org/functions/chomp.html