 Perl Programming Page 4 - Perl: Working with Files |
Manipulating Data - PerlIn our last series of tutorials we worked with Conditionals and Loops to create some basic Perl programs. This time around we are going to be working with files. Text files, CGI files, PL files, boiled files, fried files, Files Benedict, steamed Files. Okay, so I was kidding about the steamed Files.
print this article SEARCH DEV SHED |
Now that we have read the contents of our file, let's put that lazy, good for nothing data to work. As you may or may not have guessed, our table of data consists of super hero names, their super powers, and their weaknesses. So for instance, the Indian super hero Apache Chief has the ability to grow tall; unfortunately he also wears a man-skirt, and people can see under it when he does, which is a weakness. Similarly, the Incredible Hulk transforms in a super strong behemoth, but when he does so, his pants explode. I mean, talk about a weakness. The guy has to buy new pants every time he gets angry. Let's create a program that utilizes all of the data in the file: #!/usr/bin/perl $my_file=”super.txt”; open(PLOT, $my_file) || die(“I refuse to open your file!”); @my_data=<PLOT>; close(PLOT); print “Content-type: text/html\n”; print “<HTML><BODY>”; foreach $superhero (@my_data) { chop($superhero); ($hero_name, $hero_power, $hero_weakness)=split(/\|/,$superhero); print “My name is $hero_name, my super power is $hero_power, and my weakness is $hero_weakness. I hate my life.”; print “<BR>\n\n" } print “</BODY></HTML>”; The above code will print out the text: My name is The Incredible Hulk, my super power is Super Strength, and my weakness is I rip my pants My name is Daredevil, my super power is heightened senses, and my weakness is I have poor fashion sense due to blindness My name is Apache Chief, my super power is the ability to grow very tall, and my weakness is I wear a skirt
blog comments powered by Disqus |
|
|
|
|
|
|
|
/ 8 
