Perl

Probleme de boucle en perl

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Probleme de boucle en perl

vorta251

Bonjour,

Je suis TRES debutant sur perl , jusqu'ici,je me suis toujours debrouille avec des one liner....mais cette fois ci je doit ecrire tout un script en perl...et je galere sur la boucle....

Le one liner en question:

Code :

perl -F\' -lane 'print $F[5] if /(INCI0)/' fichier_plat

Ici, j'imprime le 5 ieme champ de chaque ligne qui contient INCI0 (les champs sont separé par le caractere " ' " )
le fichier_plat contient les sources d'une page web

j'ai "reduit" mon one liner a ca:

Code :

perl -ne '@field = split(/'\''/);print "$field[5]"."\n" if /(INCI0)/ ' fichier_plat

Mon probleme:
Je n'arrive pas a trouver comment ecrire un boucle pour arriver au meme result dans mon script

Mon script:
avec le module LWP::Simple, je recupere une page web

my $page = get ('http://www.adresse.com');

je veux recupere le 5 ieme champ de chaque ligne qui contient INCI0 (les champs sont separé par le caractere " ' " ) dans $page
le resultat est ecrit dans une variable...

Merci de votre aide :jap:

Message édité par vorta251 le 14-09-2006 à 11:47:48

Publicité

shaman200

Hello

Ton one liner recupere le 6ieme champ (chez perl on commence a compter a 0)

Pour ta recherche ca fait:

Code :

#!/usr/bin/perl -w
use strict;
my @result;
my @pass;
my @page = get ('http://www.adresse.com');
foreach (@page) {
if ( $_ =~ m/INCI0/) {
@pass = split(/\\'/, $_);
push(@result, $pass[5]);
}
}

le resultat se trouve dans le tableau @result

Voila!

ciao

Message édité par shaman200 le 17-09-2006 à 20:28:48

---------------
War is Peace,Freedom is Slavery,Ignorance is Strength.

FORUM HardWare.fr

Programmation

Perl

Probleme de boucle en perl

Sujets relatifs
Probleme dans les chemins de fichiers	[Crystal XI] Problème "sélection d'enregistrement"
[URGENT]Problème avec Normal.dot	[Résolu] Problème avec count et distinct
[C++] Probleme avec un exercice	Probleme dans un menu...
[Résolu]Problème depuis que Register Globals est sur off	probleme combi ASP + vbscript
[c#][1.1] Probleme WMI demande non valide	Problème avec vb range et bouton
Plus de sujets relatifs à : Probleme de boucle en perl

Page générée en 0.036 secondes