valeur par défaut perso

Version imprimable

03/04/2006, 12h06
bilout

valeur par défaut perso
bonjour
je souhaite fixer une valeur par défaut à une variable si aucune autre valeur n'a été spécifié
pour cela je lis un fichier rempli par un utilisateur et si un champ spécifique n'est pas rempli alors j'assigne ma valeur par défaut à ma variable...seulement voilà avec le code que j'ai essayé cela ne marche pas...

pour info je découpe une ligne dans un fichier qui ressemble à ça
Code:

1 2 SWITCH robert 00:11:22:33:44:55 SWITCH robert 00:aa:bb:cc:dd:ee allied telesyn
Code:

1 2 3 4 5 6 @switch = split('\s+',$_,4); $switch_name = $switch[1]; $mac = $switch[2]; if (@switch = 3) {$type = cisco;} else {$type = $switch[3];}
dans ce cas ma variable $type prend la valeur cisco à chaque tour

j'ai aussi essayer comme ça...
Code:

1 2 3 4 5 6 @switch = split('\s+',$_,4); $switch_name = $switch[1]; $mac = $switch[2]; if ($switch[3] =~ /\s+/) { $type = cisco;} else {$type = $switch[3]
et ici $type prend la valeur cisco uniquement au deuxième tour et ne vaut rien au premier

si vous m'avez suivi, idéalement il faudrait d'après les lignes que je découpe ci dessus, que $type prenne cisco comme valeur au premier tour puis allied telesyn au second...

ou me suis je trompé??
merci de votre aide
03/04/2006, 12h43
2Eurocents

Re: valeur par défaut perso
Et comme ça ?
Code:

1 2 3 4 @switch = split('\s+',$_,4); $switch_name = $switch[1]; $mac = $switch[2]; $type = (defined ($switch[3])) ? $switch[3] : "cisco";
Finalement, il suffit simplement de vérifier si le split a fourni un "$switch[3]" valide (défini).
03/04/2006, 13h31
bilout

et ben c'est un peu mieux mais c'est pas encore ça apparemment..
je print $type à chaque tour de boucle mais au premier tour elle ne prend aucune valeur, quant au deuxième tour elle à en effet la bonne valeur attendu...
ou passe le cisco? j'avous être un peu perdu étant débutant de tout juste 3semaines de perl
03/04/2006, 13h56
bilout

et ben voilà en fait l'erreur , si tant est qu'il y en ait vraiment une, se situe au niveau du split...
étant donné que je spécifiais que j'attendais 4 champs dans mon découpage cela mettait un peu la panique puisqu'il découpait toujours avec 4 champs donc je n'en avais jamais 3
03/04/2006, 14h03
2Eurocents
Citation:

Envoyé par bilout

et ben voilà en fait l'erreur , si tant est qu'il y en ait vraiment une, se situe au niveau du split...
étant donné que je spécifiais que j'attendais 4 champs dans mon découpage cela mettait un peu la panique puisqu'il découpait toujours avec 4 champs donc je n'en avais jamais 3

Je ne crois pas, non.

Le dernier paramètre de split est une limite, pas un nombre de champs. Ainsi, tu récupéreras 4 champs au maximum, mais tu peux en avoir moins ... je le prouve :
Code:

1 2 3 4 5 6 $a="a b c"; @t=split(/\s+/, $a, 4); print @t." elements recupérés.\n"; $a="a b c d e f"; @t=split(/\s+/, $a, 4); print @t." elements recupérés.\n";
Il te faut donc continuer à chercher l'erreur :?
03/04/2006, 14h23
GLDavid

Juste une remarque, le tag Résolu se met automatiquement en cliquant en bas à gauche du thread sur le bouton :resolu:

@++
03/04/2006, 14h36
bilout

ok pour la balise "résolu" je pensé qu'il fallait éditer le post à chaque fois, apparemment cela change suivant les forums...à moins que je dise une bêtise :roll:

pour ce qui est de mon problème je ne mets certainement pas en doute tes compétences en perl bien supérieur au mienne 2Eurocents mais le fait d'avoir enlevé ce dernier champ à résolu mon problème... 8O mais si tu me dis que ça devrait marcher je ferais une recherche plus appronfondi...bonne continuation
03/04/2006, 14h58
2Eurocents

Citation:

Envoyé par bilout

pour ce qui est de mon problème je ne mets certainement pas en doute tes compétences en perl bien supérieur au mienne 2Eurocents

Rassure-toi, je ne le prendrais pas mal. On commence tous un jour ... et il y a encore tellement de choses que je n'ai jamais fait en Perl que je me considère toujours comme débutant sur de nombreux sujets ;)

Citation:

Envoyé par bilout

mais le fait d'avoir enlevé ce dernier champ à résolu mon problème... 8O mais si tu me dis que ça devrait marcher je ferais une recherche plus appronfondi...bonne continuation

Pour ce qui est de ton problème, j'en ai trouvé la cause, aussi.

C'est qu'en fait, la variable $_ ,sur laquelle porte ton split, contient des caractères de séparation entre la dernière valeur et le saut de ligne ou la fin de chaine. Du coup, le split récupère des champs vides surnuméraires qui perturbent le nombre de valeurs récupérées.

Ta limite au split n'y est donc effectivement pour rien et peut être conservée ;)

Tu peux t'en tirer simplement avec un :

Code:

$_ =~ s/\s+$//;

juste avant le split, pour nettoyer les séparateurs finaux.

Bon Perl 8)
03/04/2006, 15h18
bilout

donc si je comprends bien la ligne de code que tu m'a donné permet de supprimer tous les espaces, tab et autres vides situé en fin de ligne...??
effectivement avec cette ligne et en ayant remis le nombre max de champ souhaité cela continu à fonctionner
encore merci pour ton aide
c'est pas mal le perl comme langage de prog surtout pour les strings et les fichiers mais quand même dès fois la syntaxe est vraiment tordu je trouve
bonne continuation
03/04/2006, 15h29
2Eurocents

Citation:

Envoyé par bilout

donc si je comprends bien la ligne de code que tu m'a donné permet de supprimer tous les espaces, tab et autres vides situé en fin de ligne...??

Tout à fait.
Il y a certainement bien d'autres façon de le faire ...

Citation:

Envoyé par bilout

effectivement avec cette ligne et en ayant remis le nombre max de champ souhaité cela continu à fonctionner

Bonne nouvelle :D

Citation:

Envoyé par bilout

c'est pas mal le perl comme langage de prog surtout pour les strings et les fichiers mais quand même dès fois la syntaxe est vraiment tordu je trouve

Pour la petite histoire, quand j'ai commencé Perl pour la première fois, j'ai trouvé ça vraiment tordu. J'ai abandonné dès que j'ai pu ... Puis, j'ai dû m'y remettre une autre fois ... et j'ai re-abandonné ... Et au troisième essai, peut être parceque j'essayais de moi-même, et pas avec la pression d'un projet, et tout d'un coup j'ai compris plein de trucs. C'est devenu brutalement beaucoup plus simple et naturel. ;)

C'est tous le mal que je te souhaite ;)
Bonne continuation.