$pattern = $ARGV[0]; @list = `grep $pattern $HOME/.bash_history`; @list = reverse @list; foreach $command (@list) { chomp $command; print "$command (Y/N)?"; $choice = <STDIN>; if ($choice =~ 'Y' || $choice =~ 'y') { $foo = `$command`; print "$foo\n"; exit; } }
In reply to command recall by Kickstart
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |