Separating and parsing data

[Sean Patterson]

I just started learning Perl.  I need help in writing a solution for the 
following:

# Write data validation routines to -
#       Ignore blank lines...
#       Ignore comments...
#       Ignore complete pod sections
#       Process the following data, as described:


792910171010163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552910171010163200|http://www.fccj.org/~wcjones/|Bill's Home Page
552910171010163200|http://www.jacksonville.net/sneex/|My Home Page
552913171010163200|http://jacksonville.pm.org/|Jax.PM Home Page
552909171010163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552909171010163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552910171010163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552910171010163200|http://web.fccj.org/~bill/|WCJones Home Page
552910171010163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552910171010163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552910171011163200|http://sneex.fccj.org/|WCJones Home Page
552910171011163200|http://web.fccj.org/~wcjones/|WCJones Home Page
552910171012163200|http://www.fccj.org/|FCCJ Home Page

#End of Assignment...

Here is what I have done so far:

#!C:/Perl/bin/Perl.exe -w

use strict;
use diagnostics;

my ($line, $time, $url, $title);
my @list;

    while (<DATA>) {
        chomp;          # To remove newlines
                        # To delete blank lines  I have to write this

        s/#.*//;                # To remove comments

        my @list = "$_";

        foreach $line (@list) {
        ($time, $url, $title)=split(/|/, $line);     # this does not seem to work
        print "$line\n";
        }

}

sleep  5;

__END__

Thank you so much for your help.

Sandeep

_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com/intl.asp


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]