Home arrow Perl Programming arrow Page 9 - Perl 101 (Part 4) - Mind Games

The Real World - Perl

This week's article teaches you how to use Perl to interact withfiles on your system, and also provides you with a quick crash course invarious array functions.

TABLE OF CONTENTS:
  1. Perl 101 (Part 4) - Mind Games
  2. Handle With Care
  3. Different Strokes
  4. A Little Brainwashing
  5. Die! Die! Die!
  6. Testing Times
  7. Popguns And Pushpins
  8. Shifting Things Around
  9. The Real World
  10. Miscellaneous Stuff
By: Vikram Vaswani and Harish Kamath, (c) Melonfire
Rating: starstarstarstarstar / 11
June 29, 2000

print this article
SEARCH DEV SHED

TOOLS YOU CAN USE

advertisement
Now, while all this is well and good, you're probably wondering just how useful all this is. Well, we've put together a little case study for you, based on our real-world experiences, which should help to put everything you've learned today in context [do note that for purposes of illustration, we've over-simplified some aspects of the case study, and completely omitted others].

As a content production house, we have a substantial content catalog on a variety of subjects, much of it stored in ASCII text files for easy retrieval. Some time ago, we decided to use sections of this content on a customer's Web site, and so had to come up with a method of reading our data files, and generating HTML output from them. Since Perl is particularly suited to text processing, we decided to use it to turn our raw data into the output the customer needed.

Here's a sample raw data file, which contains a movie review and related information - let's call it "sample.dat":
The Insider
1999
Al Pacino and Russell Crowe
Michael Mann
178.00
5
This is the body of the review.
It could consist of multiple paragraphs.
We're not including the entire review here...you've probably already seen
the movie. If you haven't, you should!

Within the data block, there are two main components - the header, which contains information about the title, the cast and director, and the length; and the review itself. We know that the first six lines of the file are restricted to header information, and anything following those six lines can be considered a part of the review.

And here's the script we wrote to extract data from this file, HTML-ize it and display it:
#!/usr/bin/perl
# open the data file
open(DATA, "sample.dat") || die ("Unable to open file!\n");
# read it into an array
@data = <DATA>;
# clean it up - remove the line breaks
foreach $line (@data)
{
chomp $line;
}
# extract the header - the first six lines
@header = splice(@data, 0, 6);
# join the remaining data with HTML line breaks
$review = join("<BR>", @data);
# print output
print "<HTML>\n<HEAD>\n</HEAD>\n<BODY>\n";
print "\"$header[0]\" stars $header[2] and was directed by $header[3].\n";
print "<P>\n";
print "Here's what we thought:\n<P>\n";
print $review;
print "Length: $header[4] minutes\n<BR>\n";
print "Our rating: $header[5]\n<BR>\n";
print "</BODY>\n</HTML>\n";

And here's the output:
<HTML>
<HEAD>
</HEAD>
<BODY>
"The Insider" stars Al Pacino and Russell Crowe and was directed by Michael
Mann.
<P>
Here's what we thought:
<P>
This is the body of the review.<BR><BR>It could consist of multiple
paragraphs.<BR><BR>We're not including the entire review here...you've
probably already seen the movie. If you haven't, you should!<BR>
Length: 178.00 minutes
<BR>
Our rating: 5
<BR>
</BODY>
</HTML>

As you can see, Perl makes it easy to extract data from a file, massage it into the format you want, and use it to generate another file.

This article copyright Melonfire 2000. All rights reserved.

 
 
>>> More Perl Programming Articles          >>> More By Vikram Vaswani and Harish Kamath, (c) Melonfire
 

blog comments powered by Disqus
escort Bursa Bursa escort Antalya eskort
   

PERL PROGRAMMING ARTICLES

- Perl Turns 25
- Lists and Arguments in Perl
- Variables and Arguments in Perl
- Understanding Scope and Packages in Perl
- Arguments and Return Values in Perl
- Invoking Perl Subroutines and Functions
- Subroutines and Functions in Perl
- Perl Basics: Writing and Debugging Programs
- Structure and Statements in Perl
- First Steps in Perl
- Completing Regular Expression Basics
- Modifiers, Boundaries, and Regular Expressio...
- Quantifiers and Other Regular Expression Bas...
- Parsing and Regular Expression Basics
- Hash Functions

Developer Shed Affiliates

 


Dev Shed Tutorial Topics: