$1 = abcdefghi
$2 = def
$3 = ghi
$4 = xyz
####
#!/usr/bin/perl
use strict;
use warnings;
my @chunks = ;
foreach my $i ( 0 .. @chunks-1 ) {
my $data = $chunks[$i];
no warnings;
if ( $data =~m/(\d+)\s{2,}(\d+) \s{2,}((\d|-)?(\d|,)*\.?\d*)\s{2,}((\d|-)?(\d|,)*\.?\d*)\s{2,}/) { #/ ) {
print "<$1> <$2> <$3> <$4> <$5> <$6> <$7> <$8>\n";
}
}
print "\n\n";
foreach my $i ( 0 .. @chunks-1 ) {
my $data = $chunks[$i];
no warnings;
if ( $data =~m/(\d+)\s+(\d+)\s+(-?\d*,?\d*\.?\d*)\s+(-?\d*,?\d*\.?\d*)\s+/) { #/ ) {
print "<$1> <$2> <$3> <$4>\n";
}
}
__DATA__
1022289744 8008102935 221.00 199.00 70.50 3.20 0.00 -9.70 27.09 290.09
1022290146 8008102942 0.00 199.00 63.80 0.00 0.00 -3.80 26.70 285.70
1022290145 8008102930 0.00 199.00 207.80 3.20 1.20 -120.00 30.04 321.24
1022289844 8008102943 0.00 199.00 5.50 9.00 0.00 0.00 21.98 235.48
1022290156 8008102954 0.00 199.00 283.40 0.40 11.20 -51.80 45.53 487.73
1022290048 8008102949 0.00 199.00 0.00 0.00 0.00 0.00 20.50 219.50
####
<1022289744> <8008102935> <221.00> <2> <1> <199.00> <1> <9>
<1022290146> <8008102942> <0.00> <0> <> <199.00> <1> <9>
<1022290145> <8008102930> <0.00> <0> <> <199.00> <1> <9>
<1022289844> <8008102943> <0.00> <0> <> <199.00> <1> <9>
<1022290156> <8008102954> <0.00> <0> <> <199.00> <1> <9>
<1022290048> <8008102949> <0.00> <0> <> <199.00> <1> <9>
<1022289744> <8008102935> <221.00> <199.00>
<1022290146> <8008102942> <0.00> <199.00>
<1022290145> <8008102930> <0.00> <199.00>
<1022289844> <8008102943> <0.00> <199.00>
<1022290156> <8008102954> <0.00> <199.00>
<1022290048> <8008102949> <0.00> <199.00>