1 2 3 4 5 6 7 8 9 10 11 12 13
| # vérification que la requête est valide
my $parser = SQL::Parser->new();
# The call to new() takes two arguments - the SQL string you want to parse,
# and the SQL::Parser object you previously created.
# The call to new is the equivalent of a DBI call to prepare() -
# it parses the SQL into a structure but does not attempt to execute
# the SQL unless you explicitly call execute().
my $sql2 ="INSERT INTO $Table VALUES ('', '$internal_ref', '$external_ref', '$accession', '$genus', '$species', '$subspecies', '$other', '$dna_type', '$other_storage', '$concentration', '$type', '$origin', '$date', '$notation', '$place', '$freezer', '$drawer', '$box', '$date_gly', '$notation_gly', '$place_gly', '$freezer_gly', '$drawer_gly', '$box_gly', '$manager', '$tests', '$sequences', '$documents', '$note');";
my $stmt = SQL::Statement->new( $sql2, $parser); |
Partager