Discussion :

[chris -_-]

Bonjour,

Tout d'abord je tiens à m'excuser si je ne suis pas dans la bonne catégorie....

Je me permet de venir chercher de l'aide car j'ai une interrogation sur l'application control-m (V8).
Je tente de lancer des taches depuis hier matin mais elles terminent en erreur..

Voila mon problème:

J'ai une succession de taches (script perl) qui vont attaquer une base de données et qui suivant le résultat retourne un 0 ou autre valeur si nok....

ex de script..

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
22
23
24
25
26
27
28
29
30
31

#!/usr/bin/perl 
use DBI;

#connexion a la BD
my $dbh = DBI->connect('DBI:connexion a la base')
               or die "Couldn't connect to database: " . DBI->errstr;
			   
#preparation de la requete      
my $sth = $dbh->prepare('select count (*) requete dans la base ') or die "Couldn't prepare statement: " . $dbh->errstr;
   
               

#Exection de la requete
$sth->execute();

#initialisation variable
$nbfile=0;

$nbfile=$sth->fetch()->[0];
	

if ($nbfile < "1") {
 	print "NOK taratata";
        exit 1;
}else{
	 print " OK taratata";
         exit 0;

}

lorsque j’exécute ce script sur mon serveur pas de soucis...
le retour de la commande est :0

echo $?
0

lorsque je l’exécute depuis control-m j'ai un message d'erreur suivant

Code :

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

1
2
3
4
5
+ /bin/sh -x script.pl
+ use DBI
script.pl: line 11: use: command not found
script.pl: line 14: syntax error near unexpected token `('
script.pl: line 14: `my $dbh = DBI->connect('DBI:Oracle:connection a la base)'

Ma question est toute bête... Control-m supporte t-il le perl ? et si oui pk mon service ne tourne pas correctement ??

Merci pour l'aide que vous pourriez m'apporter !

Cordialement,

Chris

[chris -_-]

J'ai trouvé.. Pour info il fallait juste lancer une commande et nom un script qui lance le script et non le script directement car le shell qui est lancé n'est pas le bon pour le perl...