Perl: Parse pipe (“|”) separated data


Using Split:

$DATAFILE = "xyz.dat";
open(DATAFILE) or die("Could not open data file.");
foreach $line (<DATAFILE>) {
    chomp($line);              # remove the newline from $line.
    @fields = split("[|]", $line);  # note: split('|', $line) doesn't work
    print "$field[0]\n";
    print "$field[1]\n";  # and so on.
}

Advertisements

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out /  Change )

Google+ photo

You are commenting using your Google+ account. Log Out /  Change )

Twitter picture

You are commenting using your Twitter account. Log Out /  Change )

Facebook photo

You are commenting using your Facebook account. Log Out /  Change )

Connecting to %s


%d bloggers like this: