Discussion :

[www.rubis]

Bonjour

je souhaite lancer une commande (commande2) avec un or die

comme dans les autre command mkdir et rmdir

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
 
 
use warnings;
use strict;
 
my ($commande1, $commande2  );
 
# Parametres de connexion à la base de données
my $serveur = "172.16.4.160";                 # nom du serveur
my $partage       = "test";                   # Il est possible de mettre une adresse IP 
my $login         = "root";                   # login
my $password      = "root";                   # password
 
 
mkdir ("/mnt/test",0755) or die  ("Erreur Creation répertoire \n");
 
 
$commande2 = "mount -t smbfs -o username=$login,password=$password //$serveur/$partage /mnt/test";
 
`$commande2`;
 
rmdir ("/mnt/test") or die  ("erreur supression repertoire \n");

Merci d'avance pour vos reponse

[Tiger-222]

Tu peux utiliser la commande system :

Code :

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

system $commande2 or die ('Erreur !');

[Philou67430]

Pas tout à fait. Il faut écrire

Code :

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

system($commande2) == 0 or die ('Erreur !');

Car à l'instar d'une commande du shell, la valeur retournée est 0 quand la commande a réussi, et une valeur non nulle en cas d'erreur (voir perldoc -f system)

Tu peux aussi écrire

Code :

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

system($commande2) and die ('Erreur !');

mais c'est moins explicite.

Tu peux aussi essayer d'ajouter la valeur $! dans le die pour préciser la raison de l'erreur.

[www.rubis]

bonjour

Merci pour vos reponse
voici donc ce que j'ai fait

Code :

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

1
2
3
4
 
$commande1 = "mount -t smbfs -o username=$login,password=$password //$serveur/$partage /mnt/test";
 
system($commande1) and die ("Erreur mount \n");

le probleme s'est que lorsque j'ai une erreur il afiche tout

mount error 13 = Permission denied
Refer to the mount.cifs(8) manual page (e.g.man mount.cifs)
Erreur mount

et moi je voudrais que Erreur mount

Merci d'avance pour vos reponse

[Invité]

Salut,

Essaie en Redirigeant l'erreur standard vers /dev/null pour éviter d'afficher les erreurs système.

$commande1 = "mount -t smbfs -o username=$login,password=$password //$serveur/$partage /mnt/test 2> /dev/null";

[www.rubis]

bonjour

j'ai fais comme commande

Code :

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

1
2
3
 
 
$commande1 = "mount -t smbfs -o username=$login,password=$password //$serveur/$partage /mnt/test > /dev/null";

et ca a l'air de fonctionner

est ce que j'ai bien fait ??

[Invité]

Re,

Oui, cela veut simplement dire que ton message est écrit sur la sortie standard et non sur l'erreur standard.

[www.rubis]

Probleme RESOLU

Merci pour toutes vos reponse