在下面的perl代码中如何将pwd与字符串连接起来。 在下文中,输出是两行不同的
$pwd=`pwd`;
my $string = $pwd . "/.somename";
print "$string";
答案 0 :(得分:6)
你刚刚做到了。恰好在中间有一个换行符。
$pwd=`pwd`;
chomp($pwd);
my $string = $pwd . "/.somename";
print "$string";
有人说......不要这样做。您应该使用cwd()
use Cwd;
my $string = cwd() . "/.somename";
print "$string\n";
答案 1 :(得分:2)
$pwd=`pwd`;
chomp $pwd;
my $string = $pwd . "/.somename";
print $string;
答案 2 :(得分:1)
使用chomp()
,如下所示:
my $pwd = `pwd`;
chomp($pwd);
my $string = $pwd . "/.somename";
print "$string";