Saturday, September 15, 2012

How do you run shell commands transparently within Perl?

#!/usr/bin/perl
use Shell;

my $sh = Shell->new;
print $sh->ls(-l);

or

#!/usr/bin/perl

use Shell qw(ls who);
@fileList = ls ("-l");
@userList = who ("-m");
print @fileList;
print @userList;

No comments :