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";