Comment passer les arguments à un script perl
Bonjour!
Je dois faire une petite application Web où PHP doit communiquer avec Oracle et on a un petit probleme avec la configuration de l'Apache et L'Oracle (ca fait dja preque 3 jours qou'on arrive pas a se connecter normalement et donc on a laisse tomber l'idée d'executer les requets SQL dans PHP ( car on arrive pas avoir la connextion stable).
Ce qu'on pourrait fair c'est d'utiliser un script Perl qui fonctionne tres bien
( il fonctionne tres) mais y a un incoveniant je suis pas un pro de Perl et donc je sais pas comment passer les params au script dans PHP
Au fait le script est dja pret et deployer sur Linux, donc moi je fais dans mon code un exec('monScript.pl');
mais comment je pase les arguments?
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
| #!/usr/bin/perl
use DBI;
#DBI->trace(4);
my $host = "BRUBLUdb02.mactelecom.net";
my $sid = "test";
my $port = "1521";
my $dbh = DBI->connect("dbi:Oracle:host=$host;sid=$sid;port=$port","system", "pass");
#my $sql = qq{ Select email From CLEARWIRE.CUSTOMER where email is not NULL };
my $sql = qq{ select FIRST_NAME,LAST_NAME,EMAIL from clearwire.customer cus,clearwire.address ad where ad.POSTAL_CODE='1435' and cus.ADDR_DELIVERY_OBJID=ad.OBJID and cus.EMAIL is not null };
my $sth = $dbh->prepare( $sql );
$sth->execute();
my( $first_name,$last_name,$cust_id );
$sth->bind_columns(\$first_name,\$last_name,\$cust_id );
#print "$cust_id;\n";
while( $sth->fetch() ) {
print "$first_name;$last_name;$cust_id\n";
}
$sth->finish();
$dbh->disconnect();
############################################################# |
C'est le qscript de base que je dois modifier pour faire de requetes desirées, ça devra aller normalement mais comment je passe les argumets a un script perl j'ai aucune idée.
On pourrait installer le module perl pour php mais je sais si c'est vite réalisable et donc je préfère kan meme utilisé ce qui marche bien.
Merci d'avance pour vos reponses :)
