use strict;
use warnings;
use DBI;

### list the db-table field names as an array
my @flds = qw(
    rec_num  src_file  src_host  init_status  cdr_day
    last_modified  city  state  cname  vname
    npa  nxx  ocn  lata  lata_name
    pdd  zone_id  cdrs_seq  file_seq  gc_id
);

my ( %testdata, %realdata );  ### use hashes to store data

### read test data from within the script file, put it in a hash:
my @test = <DATA>;
chomp @test;
@testdata{@flds} = @test;  ### this is a "hash-slice" assignment


### ... do whatever assigns "real" values to your variables ...
my ( $rec_num, $src_cdr_file, $host, $init_status, @f, $city, $state,
     $cname, $vname, $npa, $nxx, $ocn, $lata, $lata_name, $pdd );
### ... and put the real data into a hash as well:

@realdata{@flds} = (
    $rec_num, $src_cdr_file, $host, $init_status, $f[20],
    $f[4], $city, $state, $cname, $vname,
    $npa, $nxx, $ocn, $lata, $lata_name,
    $pdd, @f[0..3]
);

### make sure the "real" data matches the test data
my $diff = 0;
for ( @flds ) {
    if ( $realdata{$_} ne $testdata{$_} ) {
        warn "Field $_: Real >>$realdata{$_}<< vs. Test >>$testdata{$_
+}<<\n";
        $diff++;
    }
}
die "No point going any further\n" if ( $diff );

### If the test data worked in the past, the real data should work now
+:

my $database_username = "USER";
my $database_password = "PASS";
my $msdsn = q/dbi:ODBC:DRIVER={SQL Server};Server=10.0.0.5;attr=value/
+;
my $dbh = DBI->connect( $msdsn, $database_username, $database_password
+ )
    or die "ERROR";
$dbh->do("use db_name") or log_die("$DBI::errstr");

### build the sql statement based on the @flds array
my $fldnames = join( ',', @flds );
my $valqmrks = join( ',', ('?') x @flds );
my $SQL = "INSERT INTO iCDRSbw ($fldnames) VALUES ($valqmrks)";
my $sth = $dbh->prepare( $SQL );

$sth->execute( @realdata{@flds} ) or warn "That should have worked...\
+n";

__DATA__
1
icdr.5_5_5B.0.1.200712170000.052964.0
127.0.0.1
Unprocessed
2007-12-17 00:00:47
2007-12-17 00:00:47
NA
NA
 
 
999
999
 
1
1
1
1
1
1
AAAAC0dlvAgiIAABC7Przw.7591990
[download]