basicdez has asked for the wisdom of the Perl Monks concerning the following question:
Here is my code...
Here is textfile.dat...#!/usr/bin/perl-Tw use strict; use Text::ParseWords; open(DATA,"textfile.dat") || die "Cannot open datfile: $!\n"; my @data; my $i = 0; while (<DATA>) { chomp; last if /^"EOS"$/; { @data = "ewords('\s+', 0, q(DATA)); } foreach (@data) { print "$i: <$_>\n"; $i++; } }
What I would expect would be output that looks as follows..."PER" "A1" "Desiree" "Leppala"01261907 999-99-9999 "ADR" "A1" "264 E Dekora St NO 1" "Saukville""WI" 53080 "EOS"
I know that I am incredibly misguided here, but please help me with as little criticism as possible. humbly dez L0, PER 1, A1 2, Desiree 3, Leppala ... 13, 53080
Back to
Seekers of Perl Wisdom