如何在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

我想將dir更改為/ var / home / user1 / htdocs

Answer 1

$whoami包含結束字符\\n ，這會導致命令字符串如下所示：

cd /var/home/user1
/htdocs

您應該使用chomp從$whoami刪除尾隨換行符：

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

Answer 2

這可以在沒有炮轟的情況下完成：

#!perl
my $dir = '/home/'.getlogin().'/htdocs';
chdir $dir;

Answer 3

#!/usr/bin/perl

$whoiami=`whoami`;

print "$whoiami";

chomp $whoiami;
system ("cd /home/$whoiami/reports");

print $whoiami;