Thread Ersatz von "IF EXISTS"
(0 answers)
Opened by Gast at 2011-03-11 19:30
Ist eine dieser Versionen zum Vermeiden eines Abbruches ( wenn 'my_test_table' nicht existiert ) besser als die anderen?
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 #!/usr/bin/perl use warnings; use 5.012; use DBI; my $host = 'hostname'; my $port = 2000; my $db = 'db1.mdb'; my $dsn = "DBI:ODBC:$db"; my $dsn = "DBI:Proxy:hostname=$host;port=$port;dsn=$dsn"; my $dbh = DBI->connect( $dsn, undef, undef, { RaiseError => 1, PrintError => 0 } ) or die $DBI::errstr; my $table = 'my_test_table'; my $sql = "DROP TABLE $table"; ### 1 do { local $dbh->{RaiseError} = 0; $dbh->do( $sql ); }; ### 2 if ( $table ~~ @{[ $dbh->tables() ]} ) { $dbh->do( $sql ); } ### 3 eval{ $dbh->do( $sql ); }; ################################## Last edited: 2011-03-11 19:31:40 +0100 (CET) |