#!/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"); 
 
}

open(DAT, "~/.bash_history")or die("Cannot open file"); 
$raw_data=<DAT>; 
print $raw_data;

my $historyfile = '/home/me/.bash_history'; 
open my $historyFH, '<', $historyfile or die "Cannot open '$historyfile' $!"; 
 
my @history = <$historyFH>;

use File::Slurp; 
 
my $historyfile = '/home/me/.bash_history'; 
my @history = read_file( $historyfile ) ;

if ($varinput eq "his") 
{ 
#system( "bash -c history" ); 
#print "Hai\n"; 
#system ("/usr/local/bin/history"); 
open(DAT, glob( '~/.bash_history' ))or die("Cannot open file"); 
my @lines=<DAT>; 
#print $raw_data; 
#open(MYINPUTFILE, "<glob('~/.bash_history')"); # open for input 
#my(@lines) = <MYINPUTFILE>; # read file into list 
#@lines = sort(@lines); # sort the list 
my($line); 
foreach $line (@lines) # loop thru list 
 { 
 print "$line"; # print in sort order 
 } 
close(DAT); 
 
}