Question

Can anyone show me, how to use shell command result in Perl script ?

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

Script output

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

I want to change dir to /var/home/user1/htdocs

Answer 1

#!/usr/bin/perl

$whoiami=`whoami`;

print "$whoiami";

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

print $whoiami;