Ok, does this work for you? Row number would be an auto increment field, so doesn't need to be a field in the SQL INSERT statement.
#!/usr/bin/perl
use strict;
use warnings;
my @row;
# SQL prepare statement goes here.
while (my $line = <DATA>)
{
next if $line =~ /^\s*$/; #skip blank lines
if ($line =~ /^\s*RECZ/) #end of record
{
print "@row\n"; #would be DB row insert
@row = (); #start new row
}
else
{
my @data = (split(' ',$line))[1,2];
push @row,@data;
}
}
=prints
DATAX DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8
DATAY DATA2 DATA3 DATA4 DATA5 DATA6 DATA7 DATA8
=cut
__DATA__
REC1 DATAX DATA2 1
REC2 DATA3 DATA4 2
REC3 DATA5 DATA6 3
REC4 DATA7 DATA8 4
RECZ 5
REC1 DATAY DATA2 6
REC2 DATA3 DATA4 7
REC3 DATA5 DATA6 8
REC4 DATA7 DATA8 9
RECZ 10
Update: be careful with that submit button (labeled "stumbit") You made
a duplicate post that just causes "noise" that a Janitor has to clean up. |