perl - 如何在 perl 脚本中使用 shell 命令结果？

Question

谁能告诉我，如何在 Perl 脚本中使用 shell 命令结果？

#!/usr/bin/perl
$whoami=`whoami`;
system ('cd /var/home/'.$whoami.'/htdocs');
print $whoami;

脚本输出

[user1@srv _1]$ ./sys.pl
sh: line 1: /htdocs: No such file or directory
user1

我想将目录更改为/var/home/user1/htdocs

Answer 1

$whoami 包含结束符 \n，这会使您的命令字符串看起来像:

cd /var/home/user1
/htdocs

您应该使用 chomp 从 $whoami 中删除尾随换行符:

my $whoami = `whoami`;
chomp $whoami;