lancement d'une commande

Bonjour

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

comme dans les autre command mkdir et rmdir

Code:

---

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

Tu peux utiliser la commande system :

Code:

---

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

---

Pas tout à fait. Il faut écrire

Code:

---

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:

---

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.

bonjour

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

Code:

---

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

Salut,

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

Citation:

---

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

---

bonjour

j'ai fais comme commande

Code:

---

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 ??

Re,

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

Probleme RESOLU

Merci pour toutes vos reponse