hai
i am quite new to perl. i know php and mysql. so i require some help from u
guys
i have written one small script to run the short commands
this is the code
------------------------------
Code
------------------------------
#!/usr/bin/perl
use warnings;
# CUSTOM SYSTEM COMMANDS
print "Please Enter The Command You Wish To Initiate \n";
print "Enter The Commands With NO CAPITAL LETTERS\n";
print "HIS --- PRINTS RECENT COMMAND HISTORY\n";
print "LIST --- LISTS THE CONTENTS OF THE CURRENT /DIR \n";
print "INSTALL --- WILL PROMPT YOU TO ENTER PACKAGE NAME, THEN INSTALL\n";
print "UPDATE --- WILL UPDATE YOUR SYSTEM'S PROGRAMS\n";
print "SEARCH --- WILL PROMPT FOR PACKAGE NAME, THEN WILL SEARCH\n";
print "CHANGEDIRECTORY --- WILL CHANGE DIRECTORY\n";
##################################################
chomp ($varinput = <STDIN>);
#print "Var Input=> ".$varinput ."\n";
if ($varinput eq "his")
{
system("history");
}
------------------------------
and the remaining code folows
now what the issue is when i run the his the warning that is given is
------------------------------
Quote
------------------------------
Can't exec "history": No such file or directory at cmd.pl line 33, <STDIN>
line 1.
------------------------------
so what could be wrong
i am running this under the cent os 5.4 and the perl version is 5.8.8
Regards
Chaitanya
