Perl

[PERL] Split

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [PERL] Split

Gouki19

Salut voilà j'écris script Perl assez gros et j'aimerai limiter les déclarations de variables avec "my $mavariable1;". J'ai une ligne de code avec un split tel que:

Code :

$li=0;
while (defined($l=<FIC> ))
{
chomp $l;
($r1,$r2,$tablemac[$li][0],$tablemac[$li][1],$r3,$r4,$tablemac[$li][2],$tablemac[$li][3],$r5)=split(/:/,$l);
$li++;
}
close FIC;

Y-a t'il une façon plus propre d'ecrire la ligne d'argument récupérant le retour du split sachant que je ne réutilise pas les variables bidons "$r1", "$r2", "$r3", "$r4" et "$r5".

Comme je n'utilise pas ces dernieres dans la suite du programme, l'editeur de code me mentionne : "Name main::$r1 used only once ..."
Qu'est-ce que vous proposez ???

Publicité

Elmoricq

Modérateur

Pourquoi ne pas faire quelque chose du genre :

Code :

my @temp_result = split ':', $l;
$tablemac[$li][0] = $temp_result[2]; # nom de la donnée 2
$tablemac[$li][1] = $temp_result[3]; # nom de la donnée 3
$tablemac[$li][2] = $temp_result[6]; # nom de la donnée 6
$tablemac[$li][3] = $temp_result[7]; # nom de la donnée 7

Gouki19

Ok ça a l'air pas mal mais j'aimerai si possible rester à une instruction par tour de boucle (sans compter "chomp $l" et "$li++;" ).

Ceci dit je n'ai pas préciser que je voulais que le code soit optimiser en postant donc merci pour ta proposition

Si vous avez d'autre proposition plz ???

Aricoh

gentil mais fo po pousser

Gouki19 a écrit :

Y-a t'il une façon plus propre d'ecrire la ligne d'argument récupérant le retour du split sachant que je ne réutilise pas les variables bidons "$r1", "$r2", "$r3", "$r4" et "$r5".

Si tu ne fais rien du contenu récupéré par tes variables $r..., tu peux faire ceci :

Code :

(undef,undef,$tablemac[$li][0],$tablemac[$li][1],undef,undef,$tablemac[$li][2],$tablemac[$li][3],undef)=split(/:/,$l);

Ainsi, pas besoin de récupérer les valeurs qui ne te servent pas

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Gouki19

Aricoh a écrit :

Si tu ne fais rien du contenu récupéré par tes variables $r..., tu peux faire ceci :

Code :

(undef,undef,$tablemac[$li][0],$tablemac[$li][1],undef,undef,$tablemac[$li][2],$tablemac[$li][3],undef)=split(/:/,$l);

Ainsi, pas besoin de récupérer les valeurs qui ne te servent pas

:bounce:
Excellent c'est exactement ce qu'il me faut, j'ai testé et ça fonctionne
Merci Aricoh :jap:

Aricoh

gentil mais fo po pousser

Gouki19 a écrit :

:bounce:
Excellent c'est exactement ce qu'il me faut, j'ai testé et ça fonctionne
Merci Aricoh :jap:

Mon bon coeur me perdra

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Elmoricq

Modérateur

Mais ça reste une ligne d'un million de caractères, c'est ignoble à lire.
Même le forum il en veut pas. [:petrus75]

Si tu utilises la solution d'Aricoh, essaie au moins d'espacer :

Code :

( undef,
undef,
$tablemac[$li][0],
$tablemac[$li][1],
undef,
undef,
$tablemac[$li][2],
$tablemac[$li][3],
undef ) = split(/:/,$l);

Message édité par Elmoricq le 21-06-2005 à 12:40:37

Gouki19

Elmoricq a écrit :

Mais ça reste une ligne d'un million de caractères, c'est ignoble à lire.
Même le forum il en veut pas. [:petrus75]

Si tu utilises la solution d'Aricoh, essaie au moins d'espacer :

Code :

my ( undef,
undef,
$tablemac[$li][0],
$tablemac[$li][1],
undef,
undef,
$tablemac[$li][2],
$tablemac[$li][3],
undef ) = split(/:/,$l);

Hmmm :whistle:
J'ai pas bien capté ton "my" vu que le split se retrouve dans une boucle "while". Mais pour l'espacement pas de souci
En fait pour le moment j'ai fais comme ceci:

Code :

$li=0;
while (defined($l=<FIC> ))
{
chomp $l;
(undef,undef,$tablemac[$li][0],$tablemac[$li][1],undef,undef,$tablemac[$li][2],$tablemac[$li][3],undef)=split(/:/,$l);
$li++;
}
close FIC;

Ca fonctionne très bien

Sinon je m'égare un peu mais le but c'est de récupérer les adresses MAC d'un fichier ancien et de comparer avec un nouveau fichier pour déterminer quels sont les nouvelles adresses MAC par rapport à l'ancien fichier.
Je sais pas si il existe des modules Perl qui font une comparaison entre 2 tableaux et renvoient tous les éléments qui apparaissent en plus...???
Si vous avez des idées ???

Elmoricq

Modérateur

Argh, j'ai retiré le "my" à l'instant, 1s avant que tu ne postes.
Une erreur de ma part. :sweat:

Sinon la solution avec undef est bonne, mais le but de ma réponse était la mise en page. La lisibilité apporte une meilleure maintenabilité, ça permet de débusquer les erreurs plus facilement, et ça ne part pas en vrille dans un éditeur de texte plus limité.

Aricoh

gentil mais fo po pousser

Gouki19 a écrit :

Sinon je m'égare un peu mais le but c'est de récupérer les adresses MAC d'un fichier ancien et de comparer avec un nouveau fichier pour déterminer quels sont les nouvelles adresses MAC par rapport à l'ancien fichier.
Je sais pas si il existe des modules Perl qui font une comparaison entre 2 tableaux et renvoient tous les éléments qui apparaissent en plus...???
Si vous avez des idées ???

Le problème en chargeant tes adresses MAC dans 2 tableaux, c'est que si la même adresse existe dans les deux tableaux MAIS pas au même emplacement du tableau, elles vont te ressortir toutes 2 comme des nouveautés

Le must serait dans ce cas d'utiliser les hash (ou tableaux de hachage)

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Publicité

Gouki19

LOL

Ah je vois pas de souci

Mais sinon t'aurai pas une idée pour mon deuxieme pb lol ??

Car j'ai pas envi de programmer une recherche dans un tableau pour controler si chaque élément d'un tableau est bien dans l'autre tableau !!! C'est lourd en temps de traitement je pense...

Gouki19

Aricoh a écrit :

En effet j'avais pensé à ça mais comme je maîtrise pas trop les table de hash jme suis pas lancé directement.

Jvais voir de ce coté là

Merci à vous mais si ya d'autres idées n'hesitez pas

Aricoh

gentil mais fo po pousser

Gouki19 a écrit :

Mais sinon t'aurai pas une idée pour mon deuxieme pb lol ??

Comme je dis plus haut, utilise des hash au lieu de tableaux simples

En analysant rapidos ton truc, tu récupères 4 valeurs de chaque ligne sous la forme :

Code :

$tablemac[ligne n][élément 1]
$tablemac[ligne n][élément 2]
$tablemac[ligne n][élément 3]
$tablemac[ligne n][élément 4]

Avec un hash (déclaré %tablemac et non plus @tablemac), tu pourrais formuler ton truc sous cette forme là :

Code :

$tablemac{ligne n}->{élément 1}
$tablemac{ligne n}->{élément 2}
$tablemac{ligne n}->{élément 3}
$tablemac{ligne n}->{élément 4}

Bien entendu, il te faut 2 hash bien distincts pour pouvoir comparer tes adresses MAC. Ensuite, il te suffit de faire une petite fonction pas bien méchante à lancer 2 fois :

- 1ère fois, elle compare les valeurs de l'ancien fichier avec le nouveau
- 2ème fois, elle fait la même chose mais entre le nouveau et l'ancien fichier

---------------
Samsung Galaxy S1 -> Samsung Galaxy S2 -> Samsung Note 2 -> Huawei Ascend Mate 7 -> ZTE Axon 7 -> OnePlus 6T -> Oppo Find X2 PRO -> Google Pixel 9 PRO XL

Gouki19

Ok j'y vois plus clair grace à ton explication, jme suis lancé avec les table de hash et ça a l'air bien plus approprié pour ce que je veux faire

Encore merci ^^

Gouki19

Aricoh a écrit :

Comme je dis plus haut, utilise des hash au lieu de tableaux simples

En analysant rapidos ton truc, tu récupères 4 valeurs de chaque ligne sous la forme :

Code :

$tablemac[ligne n][élément 1]
$tablemac[ligne n][élément 2]
$tablemac[ligne n][élément 3]
$tablemac[ligne n][élément 4]

Avec un hash (déclaré %tablemac et non plus @tablemac), tu pourrais formuler ton truc sous cette forme là :

Code :

$tablemac{ligne n}->{élément 1}
$tablemac{ligne n}->{élément 2}
$tablemac{ligne n}->{élément 3}
$tablemac{ligne n}->{élément 4}

Arf par contre il faut que les mac adress soient mes clés au lieu d'un entier comptant le nombre de ligne...

J'ai fais ceci mais j'ai des doutes car j'arrive pas à afficher les bonnes valeurs...

Code :

while (defined($l=<FIC> ))
{
chomp $l;
(undef,undef,$oldmac,$tablemac{$oldmac}->{1},undef,undef,$tablemac{$oldmac}->{2},$tablemac{$oldmac}->{3},undef)=split(/:/,$l);
}
close FIC;
foreach my $v (values(%tablemac))
{
print "Valeur=$v<br>";
$t++;
}

Je sais pas comment gérer les tables de hash à plusieurs dimensions... :pt1cable:

Elmoricq

Modérateur

Gouki19 a écrit :

Arf par contre il faut que les mac adress soient mes clés au lieu d'un entier comptant le nombre de ligne...

J'ai fais ceci mais j'ai des doutes car j'arrive pas à afficher les bonnes valeurs...

Je sais pas comment gérer les tables de hash à plusieurs dimensions... :pt1cable:

Je n'ai pas bien compris ce que tu cherchais à faire exactement, mais j'ai le sentiment qu'un hash de tableaux devrait te convenir (en admettant que je ne me trompe pas sur tes intentions).

Exemple :

Code :

# stockage
my %hashtable;
while ( @table = ...plein de données... )
{
my $key = ...chercher la clef qui va bien... ;
$hashtable{$key} = \@table;
}
# pour retrouver les valeurs :
foreach my $key ( keys %hashtable )
{
# reference du tableau, on peut dereferencer avec @{ ... }
my $reftable = $hashtable{$key};
# exemple, avec parcours du tableau
foreach my $data ( @{ $reftable } )
{
...faire ce qu'on veut avec $data...
}
# on peut aussi acceder à une ligne du tableau directement
# prenons la seconde ligne, comme ça, au hasard :
my $data = $hashtable{$key}->[1];
}

On peut évidemment adapter ce principe pour créer des hash de hash, si jamais c'est ça qu'il te faut.

Message édité par Elmoricq le 21-06-2005 à 15:35:11

Gouki19

Ok je vais étudier ça pour voir si ça peut me convenir sinon j'essaierai d'etre plus clair sur mes intentions lors de mon prochain post

Gouki19

Re finalement c'est bon j'ai pu m'en sortir et faire ce que je voulais

Jvous remercie à tous pour votre aide

FORUM HardWare.fr

Programmation

Perl

[PERL] Split

Sujets relatifs
[Perl] CGI et time out IE!! Comment ne pas etre à la boure!!?	[Perl] CGI création de dossier et fichier
[Perl] chemain machine Perl	[Perl] comment utiliser Perl dans du HTML
[Perl & XML] Validatin d'un fichier XML	[PERL] traduction variable dans chaine de caractère
[PERL] Problème d'inclusions ...	[PERL] fonction Split et tableau HTML
[Perl] Pb avec un split	fonction équivalente au 'split' de perl? [pb regexp]
Plus de sujets relatifs à : [PERL] Split

Page générée en 0.096 secondes