[perkins][lab2-2][~] cd Lecture6

################################################
### Demonstrating the case-modifying escapes ###
################################################

[perkins][lab2-2][~/Lecture6] perl Case.pl
abcDeFGHIJKmnoPq[perkins][lab2-2][~/Lecture6] perl Case.pl
abcDeFGHIJKmnoPqI AM LITTLE

##########################################################
### Demonstrating running a terminal command from Perl ###
##########################################################

[perkins][lab2-2][~/Lecture6] perl Term.pl
total 32
-rw------- 1 perkins 17260  80 Jan 16 12:57 Case.pl
-rw------- 1 perkins 17260  29 Jan 16 13:00 Term.pl
/home/2006/perkins/Lecture6

##########################################################
### Demonstrating taking input and printing it out again #
##########################################################

[perkins][lab2-2][~/Lecture6] perl Input1.pl
Hello, I can enter input here!
Hello, I can enter input here!

###################################################################
### Demonstrating input to print out a madlib, in various ways. ###
###################################################################

[perkins][lab2-2][~/Lecture6] perl Madlib1.pl
Roses are pretty,
Violets are odious,
apple is sweet,
and so are grapes.
[perkins][lab2-2][~/Lecture6] perl Madlib2.pl
pretty
odious
sweet
grapes
Roses are pretty
,
Violets are odious
,
sweet
 is sweet,
and so are grapes
.
[perkins][lab2-2][~/Lecture6] perl Madlib3.pl
red
purple
cat
beaver
Roses are red,
Violets are purple,
cat is sweet,
and so are beaver.
[perkins][lab2-2][~/Lecture6] perl Madlib4.pl
Give me an adjective: red
Give me an adjective: purple
Give me a noun: cat  
Give me a noun: beaver
Roses are red,
Violets are purple,
cat is sweet,
and so are beaver.
[perkins][lab2-2][~/Lecture6]