On Thu, 28 Jun 2001, Brian Bukeavich wrote:
> Input data looks like:
> Broken,Heart,36,20,05,05/03/2000,F,6,5,4,5,5,8,5,5,5,48,06,12,01,,,
>
> I am expecting:
> Field 1 = Broken
> Field 2 = Heart
> Field 3 = 36
> Field 4 = 20
> Field 5 = 05
> Field 6 = 05/03/2000
> Field 20 = ""
> Field 21 = ""
> Field 22 = ""
This is what I tested:
#!/usr/bin/perl -w
use strict ;
my $data =
'Broken,Heart,36,20,05,05/03/2000,F,6,5,4,5,5,8,5,5,5,48,06,12,01,,,';
my @fields = split /,/, $data;
foreach my $i (0..$#fields) {
print "Field $i = $fields[$i]\n";
}
and this was the output:
Field 0 = Broken
Field 1 = Heart
Field 2 = 36
Field 3 = 20
Field 4 = 05
Field 5 = 05/03/2000
Field 6 = F
Field 7 = 6
Field 8 = 5
Field 9 = 4
Field 10 = 5
Field 11 = 5
Field 12 = 8
Field 13 = 5
Field 14 = 5
Field 15 = 5
Field 16 = 48
Field 17 = 06
Field 18 = 12
Field 19 = 01
However, If I changed the data to be
'Broken,Heart,36,20,05,05/03/2000,F,6,5,4,5,5,8,5,5,5,48,06,12,01, , , '
I get this:
Field 0 = Broken
Field 1 = Heart
Field 2 = 36
Field 3 = 20
Field 4 = 05
Field 5 = 05/03/2000
Field 6 = F
Field 7 = 6
Field 8 = 5
Field 9 = 4
Field 10 = 5
Field 11 = 5
Field 12 = 8
Field 13 = 5
Field 14 = 5
Field 15 = 5
Field 16 = 48
Field 17 = 06
Field 18 = 12
Field 19 = 01
Field 20 =
Field 21 =
Field 22 =
-- Brett
http://www.chapelperilous.net/btfwk/
------------------------------------------------------------------------
You are only young once, but you can stay immature indefinitely.
