Simple perl scripts

Simple perl scripts

• 1.
  Some Simple PerlScripts<br />To get an idea of how Perl works, we'll finish off the first lesson with some simple Perl scripts. We'll build on the items you've learned earlier: scalars and arrays, the if-else, while and for constructs, and the print statement. <br />Since we're writing real perl programs here, there are a few more things you should know about. <br />Statements <br />Statements are complete thoughts in perl, just like sentences. In English, sentences end with a period. In Perl, statements must end with a semi-colon. This is for good reason — in perl the period is used for something else. <br />Comments <br />If you've ever had the nerve to scribble notes in the margin of a novel, you'll know what comments are for. <br />In perl, comments are words within the program that perl itself ignores. They are written by you for your own benefit. They help explain the program so when you look at it later you know what the heck is going on. In perl, comments are set off with the \" #\" character. Anything following the # to the end of the line is a comment. For example: <br />#This illustrates a comment.<br /> <br />#Note there is a semi-colon on the next line<br />print \" The quick brown fox jumped over the lazy dog\n\" ;<br />There is another form of comment which is very useful when you want to chop out large sections of code. Borrowing a technique from Perl's embedded documentation, I like to use it in this way: <br />=comment until cut<br />$variable = 1;<br />print \" The variable has the value of $variable\n\" ;<br />...<br />...<br />=cut<br />Commenting out large sections like this can be extremely helpful. <br />The Newline Character <br />In the examples leading up to this section, I've used the print statement a lot. Each time, I've added the funny ending \" \n\" onto the print statement. This odd combo of \n is the newline character. Without it, the print statement would not go on to the next line. <br />Many people are surprised to learn you have to tell the program to go to a new line each time.  But if it did this all by itself every time, then you could never print out complete lines a bit at a time, like this: <br />$num_words = \" eight\" ;<br />print \" There are \" ;<br />print $num_words;<br />print \" words altogether in this sentence.\n\" ;<br />Instead the output would be: <br />There are<br />eight<br /> words altogether in this sentence.<br />Short Forms <br />In perl, some operations are so common they have a shortened form that saves time. These may be strange to the novice, so I'll be careful here. Where appropriate I'll make a comment near the statement to describe the short form. <br />Programming Errors <br />Programming errors? Already? Yes. Programming errors, also affectionately known as bugs, are a fact of programming life. You'll be encountering them soon enough. <br />If you have a mistake in your perl script that makes your meaning unclear, you'll get a message from the perl compiler when you try to run it. To check for these errors before running, you can run perl with the -c flag. And turn on the warnings flag, -w, while you're at it. This picks up hard to find errors too. As an example you'd type in: <br />perl -wc hello.pl<br />to check on the health of the perl script, hello.pl. If there are any syntax errors, you'll hear about them alright! <br />Running the example scripts <br />You can copy any of the following script examples into a file in Notepad and save it as, say, perltest.pl. Then check it for errors by typing <br />perl -wc perltest.pl<br />If it comes back saying \" syntax ok\" , then go ahead and run it by typing <br />perl perltest.pl<br />If it doesn't say \" syntax ok\" , then go and fix the reported error, and try again. <br />Script 1: Adding the numbers 1 to 100, Version 1 <br />$top_number = 100;<br />$x = 1;<br />$total = 0;<br />while ( $x <= $top_number ) {<br />$total = $total + $x;# short form: $total += $x;<br />$x += 1;# do you follow this short form?<br />}<br />print \" The total from 1 to $top_number is $total\n\" ;<br /> <br />Script 2: Adding the numbers 1 to 100. Version 2 <br />This script uses a form of the for loop to go through the integers 1 through 100: <br />$total = 0;<br />#the for loop gives $x the value of all the <br />#numbers from 1 to 100; <br />for $x ( 1 .. 100 ) { <br />$total += $x; # again, the short form <br />}<br />print \" The total from 1 to 100 is $total\n\" ; <br /> <br />Script 3: Printing a menu <br />This script uses an array to store flavors. It also uses a terrific form of the for loop to go through them.  <br />@flavors = ( \" vanilla\" , \" chocolate\" , \" strawberry\" );<br />for $flavor ( @flavors ) {<br />print \" We have $flavor milkshakes\n\" ;<br />}<br />print \" They are 2.95 each\n\" ;<br />print \" Please email your order for home delivery\n\" ;<br />Script 4: Going one way or the other: <br />This allows you to program in a word to make a decision. The \" ne\" in the if statement stands for \" not equal\" and is used to compare text. The \" die\" statement shows you a way to get out of a program when you're in trouble. <br />#You can program answer to be heads or tails<br />$answer = \" heads\" ;<br />if ( $answer ne \" heads\" and $answer ne \" tails\" ) {<br />die \" Answer has a bad value: $answer!\" ;<br />}<br />print \" Answer is programmed to be $answer.\n\" ;<br />if ( $answer eq \" heads\" ) {<br />print \" HEADS! you WON!\n\" ;<br />} else {<br />print \" TAILS?! you lost. Try your coding again!\n\" ;<br />}<br /> <br />Script 5: Going one way or the other, interactively: <br />This allows you to type in a word to make a decision. A shameless sneak peek at the next lesson on input and output. <STDIN> allows us to read a word from the keyboard, and \" chomp\" is a function to remove the newline that's attached to our answer after hitting the carriage return. <br />print \" Please type in either heads or tails: \" ;<br />#The <STDIN> is the way to read keyboard input<br />$answer = <STDIN>;<br />chomp $answer;<br />while ( $answer ne \" heads\" and $answer ne \" tails\" ) {<br />print \" I asked you to type heads or tails. Please do so: \" ;<br />$answer = <STDIN>;<br />chomp $answer;<br />}<br />print \" Thanks. You chose $answer.\n\" ;<br />print \" Hit enter key to continue: \" ;<br />#This line is here to pause the script<br />#until you hit the carriage return<br />#but the input is never used for anything.<br />$_ = <STDIN>;<br />if ( $answer eq \" heads\" ) {<br />print \" HEADS! you WON!\n\" ;<br />} else {<br />print \" TAILS?! you lost. Try again!\n\" ;<br />}<br />