Perl : execute shell commands in perl scripts :

#!/usr/local/bin/perl
use Shell;
my $sh = Shell->new;
$tw_rc = kiranfile;
if( ! -f $tw_rc ) {
print “File is not there”;
print $sh->touch (‘kiranfile’);
print $sh->ps (“ax”);
}else {
print “File is there \n”;
print $sh->cat (‘kiranfile’);
pwd;
}

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: