How to use shell command result in perl script?

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

please note that none of the solutions (and your corrected code) will change the working directory of your program!! — pavel
– pavel, Commented Feb 27, 2012 at 13:22

François Févotte · Accepted Answer · 2012-02-27 11:03:03Z

4

$whoami contains the endline character \n, which causes your command string to look like:

cd /var/home/user1
/htdocs

You should use chomp to delete the trailing newline from $whoami:

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

answered Feb 27, 2012 at 11:03

20.4k4 gold badges55 silver badges79 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

SparkeyG · Accepted Answer · 2012-02-27 14:59:12Z

3

This can be accomplished w/o shelling out:

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

answered Feb 27, 2012 at 14:59

SparkeyG

5327 silver badges22 bronze badges

Vijay · Accepted Answer · 2012-02-27 11:15:11Z

2

#!/usr/bin/perl

$whoiami=`whoami`;

print "$whoiami";

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

print $whoiami;

answered Feb 27, 2012 at 11:15

Vijay

67.7k94 gold badges238 silver badges327 bronze badges