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
| my $qtype=$qtree2del;
$qtype=~s/\d*//g;
my $dbh2 = DBI->connect( "dbi:mysql:dbname=$database;host=$hostname;", $login, $password )
or print "Error connecting database $database !";
my $prep12 = $dbh2->prepare( "SELECT qtree,prj,region FROM qtree
WHERE qtree=\"$qtree2del\" AND prj<>\"no_prj\" AND prj<>\" \" AND prj <> NULL ");
$prep12->execute() or print "Abord requesting \n";
my @line1 = $prep12->fetchrow_array ;
my $qtree1=$line1[0];
my $new1=$line1[1] ;
my $region1=$line1[2];
print" $new1";
my $prep2 = $dbh2->prepare( "SELECT qtree, status FROM qtree
WHERE prj = \"$new1\"
AND qtree LIKE \"$qtype\"
AND qtree <> \"$qtree1\"
AND region = \"$region1\"
"); |
Partager