in reply to "HERE" displays in output

Are the inserts happening? If not, then you are probably only seeing part of an error message. Do you have the RaiseError flag set in your connection? Do you inspect $@ or $DBI::errstr?

If this is not an error, you could redirect STDOUT to suppress the messages.

Dum Spiro Spero

Replies are listed 'Best First'.
Re^2: "HERE" displays in output
by avilner (Initiate) on Jun 18, 2015 at 13:02 UTC
    The inserts are going into the database, so there is no issue there. Definitely not a DB message. Establish connection: 
    my $dbh = DBI->connect( "dbi:ODBC:AV_Lenovo", "", "",{RaiseError => 1,
+ PrintError => 1, AutoCommit => 0} ) or
die "Unable to connect: " . $DBI::errstr . "\n";

    [download]
    ... do stuff Do insert: 
        my $sql = join ('', 
        "INSERT INTO raw ( 
         CHROM            
        ,POS            
        ,ID                
        ,REF            
        ,ALT            
        ,QUAL            
        ,FILTER            
        ,INFO            
        ,FORMAT    
        ) values (?, ?, ?, ?, ?, ?, ?, ?, ?);", "\n"
    );
     eval {
         my $sth = $dbh->prepare($sql);
         $sth->execute( @values );
     };

    [download]
    If I output the @values, they look like this: 
    1
10235
rs540431307
T
TA
100
PASS
AC=6
G

    [download]
    ....so nothing unusual about them. And, as I mentioned, running the insert directly against SQL Server produces no messages.
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom