enregistrer retour commande unix dans variable

Bonjour,

On sait que la commande suivante :

Code:

---

system "dnsdomainname";

---

permet de renvoyer le nom du domaine en se basant sur la commande unix.

je souhaite pouvoir enregistrer le resultat de cette commande dans une variable de mon script perl (variable qu'on appellera $domain ).

Comment dois-je m'y prendre?

J'ai en fait créé la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

sub lieu { my $domain; my @ligne; my $ile; $domain = qx/dnsdomainname/;   @ligne = split ".",$domain; if($ligne[0] eq "dirag") { $ile = "MARTINIQUE"; } print $ile; }

---

dnsdomainname renvoit : dirag.meteo.fr

mais cette fonction ne marche pas. pourquoi?

Tu devrais écrire le split ainsi :

Code:

---

my @ligne = split (/\./,$domain);

---

Néanmoins, si @ligne ne te sert pas ultérieurement, tu peux directement faire

Code:

---

1 2 3

if($domain =~ /^dirag\./){ $ile = "MARTINIQUE"; }

---

^: ancre de début qui vérifie que tu es bien au départ de ta variable
\. : le caractère point qui nécessite le backslash vu que le caractère point est déjà réservé pour signifier 'n'importe quel caractère'.