#!/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;
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 :
Post a Comment