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