|
|
Shell script calling Perl function, sort and find data, write to new files
10-24-2011
Shell script calling Perl function, sort and find data, write to new files
#!/usr/bin/perl -w
use 5.010;
print "Enter a word to search for\n";
$find = <STDIN>;
print "Enter a file to search in\n";
$look = <STDIN>;
print "Lines that matched $find\n";
open FILE, "<$look" or die "can't open $look $!";
my @file_array = <FILE>;
while (<FILE>)
{
foreach my $line (@file_array)
{
if ($line =~ m/$find/i)
{
print "The word $find is found on line $line\n";
}
else
{
print "Not found\n";
}
}
}
close (FILE);#!/usr/bin/perl use 5.010; use warnings; print "Enter a file\n"; chomp($FILE1 = <STDIN>); print "Enter another file\n"; chomp($FILE2 = <STDIN>); my $filename = "$FILE1"; my $newfile = "$FILE2"; open(OUTPUT, "|sort $FILE1 > $FILE2"); close OUTPUT; print "Finished";
#!/bin/sh echo "Enter filename" read FILE echo "Please enter a new filename\n" read NEWFILE if [ $NEWFILE == "" ] then echo "You must enter a new filename" exit else sort $FILE > $NEWFILE echo "Finished" fi
#!/bin/sh
echo "Please enter a filename"
read FILE
if [ $FILE == "" ]; then
echo "You must enter a filename, e.g:"
echo "./shell.sh foo.bar"
exit
fi
cat < $FILE
while [ "$option" != 4 ]
do
echo "Enter a selection:\n"
echo "1) Sort data in shell"
echo "2) Sort data in Perl"
echo "3) Search for a word in Perl"
echo "4) Exit"
read option
case $option in
1) ./sideShell.sh $FILE;;
2) ./perlScript001.pl $FILE;;
3) ./perlScript002.pl $FILE;;
esac
done
echo "'Respect.' -Seth"
exit
fithe quick brown fox jumps over the lazy dog Wellif you want it here it is come and get it mmmmmake your mind up fast need a little excitement snap into a slim Jim oh yeah any way you want it thats the way you need it any way you want it
Script started on Sun 23 Oct 2011 09:35:09 PM CDT ]0;kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC: ~kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC:~$ ./test.sh Please enter a filename file [: 11: file: unexpected operator the quick brown fox jumps over the lazy dog Wellif you want it here it is come and get it mmmmmake your mind up fast need a little excitement snap into a slim Jim oh yeah any way you want it thats the way you need it any way you want it Enter a selection: 1) Sort data in shell 2) Sort data in Perl 3) Search for a word in Perl 4) Exit 1 Enter filename file Please enter a new filename newr er [: 14: newer: unexpected operator Finished Enter a selection: 1) Sort data in shell 2) Sort data in Perl 3) Search for a word in Perl 4) Exit 2 Enter a file file Enter another file newest FinishedEnter a selection: 1) Sort data in shell 2) Sort data in Perl 3) Search for a word in Perl 4) Exit 4 'Respect.' -Seth ]0;kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC: ~kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC:~$ ./test.sh Please enter a filename file [: 11: file: unexpected operator the quick brown fox jumps over the lazy dog Wellif you want it here it is come and get it mmmmmake your mind up fast need a little excitement snap into a slim Jim oh yeah any way you want it thats the way you need it any way you want it Enter a selection: 1) Sort data in shell 2) Sort data in Perl 3) Search for a word in Perl 4) Exit 3 Enter a word to search for need Enter a file to search in newest Lines that matched need Enter a selection: 1) Sort data in shell 2) Sort data in Perl 3) Search for a word in Perl 4) Exit 4 'Respect.' -Seth ]0;kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC: ~kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC:~$ ls [0m[01;32manother[0m fileA [01;32mnewere[0m [01;32mperlScript002.pl[0m [01;32mtest003.pl[0m [01;34mAudiobooks[0m filessss newerfile [01;34mPictures[0m [01;32mtestBash.sh[0m d2.pls fileTest [01;32mnewest[0m [01;34mPodcasts[0m [01;32mtest.pl[0m [01;34mDesktop[0m fileTest.bac newfile [01;34mPublic[0m testsc [01;34mDocuments[0m HPIM1214.JPG [01;32mnewfiler[0m reviewMidterm [01;32mtest.sh[0m [01;34mDownloads[0m [00;36mlaugh02.mp3[0m [01;32mnewfiles[0m [01;32msideShell.sh[0m [01;32mtest.sh~[0m [01;32mevennewerest[0m [00;36mlaugh02.wav[0m [01;32mnewfily[0m [01;32mstart[0m [01;34mUbuntu One[0m examples.desktop magic.mgc [01;32mperlScript001[0m temp file [01;34mVideos[0m [01;32mfile[0m [01;34mMusic[0m [01;32mperlScript001.pl[0m [01;34mTemplates[0m [01;32mfile1[0m newer [01;32mperlScript002[0m [01;32mtest002.pl[0m ]0;kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC: ~kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC:~$ cat newer a a and any any brown come dog excitement fast fox get here into is it it it it it it Jim jumps lazy little mind mmmmmake need need oh over quick slim snap thats the the the up want want want way way way Wellif yeah you you you you your ]0;kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC: ~kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC:~$ cat newest a a and any any brown come dog excitement fast fox get here into is it it it it it it Jim jumps lazy little mind mmmmmake need need oh over quick slim snap thats the the the up want want want way way way Wellif yeah you you you you your ]0;kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC: ~kowit010@kowit010-HP-Pavilion-dm4-Notebook-PC:~$ exit exit Script done on Sun 23 Oct 2011 09:36:09 PM CDT
10-24-2011
10-25-2011
10-25-2011
10-25-2011
Thank you!
11-02-2011
Thank you (again!)
|
|