Discussion :

[belgampaul]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[GLDavid]

Salut

Je dois avouer que je n'ai pas très bien compris ton thread . Fais attention à ton français ! A cet effet, je te recommande de lire les règles du forum.
Sinon, as-tu pris connaissance de mes cours ? Dans la 2ème partie de mes cours Perl pour débutant, j'explique l'importance de la varable @ARGV et comment passer des arguments à un script Perl : http://perl.developpez.com/tutoriel/cours2/#LIII
En espérant t'avoir aidé et compris ta question

@++

[Al-Yazdi]

C'est vrai que il est pas clair ton message ...

T'as essayé tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

exec('monscript.pl arg1 arg2')

Plus d'infos, cours et tutoriels Perl : http://perl.developpez.com/cours/

ben/bye

[belgampaul]

salut a tous.

Dsl, si mon poste n'etait pas claire et pourtant j'ai bien demandé comment passer des arguments à un script perl et les recuperer dans ce script. Facile à comrendre, non?

Ni plus ni moins, le reste c'était une explication de ce que je devais faire.

Le problème c'étais que je savais pas comment passer les arguments à un script.

IL faut utiliser ARGV mais vu que je connais pas Perl c'est pas évident de trouver tout de suite une réponse (en plus je dois programmer en PHP, pas en Perl)

Mais tout était vite résolu car grace à l'adminstrateur du réseau.


Merci encore une fois pour la comréhension et votre aide

P.S. J'ai pas reçu des notifications de réponses sur ma question et ça c'est chiant pourtant j'ai coché "M'avertir lorsqu'une reponse est postée".
Je posterais les 2 scripts PHP et Perl si quelqu'un est intressé mais pour l'instant j'ai pas le codecar il est sur un autre PC

[belgampaul]

C'est vrai que il est pas clair ton message ...

T'as essayé tout simplement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

exec('monscript.pl arg1 arg2')

ben/bye

Exactement ce qu'il faut faire, Merci Al-Yazdi, le probléme c'etait de récupérer ces arguments dans le script Perl. On utilise pour ça ARGV.