Yes, all rows are complete.
To check RegExp, I was printing each new line and after parsing the data to the DB directly was quering for a new entry using unique ID (index). To check each parsed line I use the following code:
# Display RexExp results
print STDERR join("\t",@arguments),"\n";
<here add all data from @argumens to a DB (as described in the origina
+l post)>
# check if data parsed successfully
my $sql2 = 'SELECT *
FROM hist_mod_score
WHERE Counts=?';
$sth = $dbh->prepare($sql2) or die $dbh->errstr;
$sth->execute($index) or die $sth->errstr;
# dump fetched query results
$sth->dump_results if $sth->{NUM_OF_FIELDS};
In the output I've got the following:
0 SM_Th2_1_K27ac SM Th2 1 K27ac Tbx21-1 4.8878613
+2768108e-10
0 rows
1 SM_Th2_1_K27ac SM Th2 1 K27ac Tbx21-2 3.8016699
+2152973e-10
0 rows
...
120 SM_Th2_2_K9me3 SM Th2 2 K9me3 Tbx21-21 4.1899
+3008961981e-10
'120', 'SM_Th2_2_K9me3', 'SM', 'Th2', '2', 'K9me3', 'Tbx21-21', '4.189
+93008961981e-10'
1 rows
|