Discussion :

[tisba972]

Bonjour,

On sait que la commande suivante :

Code :

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

 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?

[tisba972]

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

Code :

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

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?

[Jasmine80]

Tu devrais écrire le split ainsi :

Code :

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

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

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

Code :

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

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'.