OVH Cloud OVH Cloud

probleme avec for

6 réponses
Avatar
serge.john.swilting
comment faire pour iterer sur les element de whithelist
qui est de la forme
root
nobody@free.net
swilting


#!/usr/bin/perl -w

use strict;

open (WHITHELIST,"/home/swilting/popperl/whithelist") or die "impossible de
trouver l'article: $!\n";

my@whithelist = <WHITHELIST>;

print @whithelist;
print "\n";
print $whithelist[2];
print "\n";

my $scalar = scalar (@whithelist);
print $scalar;
print "\n";
--$scalar;
print $scalar;
print "\n";
for(my$i=0;$i++;$i<=$scalar){
my $t = "0";
print $whithelist[$t];
$t++;
}

6 réponses

Avatar
Emmanuel Florac
Le Sun, 11 Jul 2004 12:07:35 +0200, serge.john.swilting a écrit :


comment faire pour iterer sur les element de whithelist
qui est de la forme
root

swilting


Utilise

foreach my $scalar (@whitelist) { }

pour naviguer dans un tableau.

Pour lire un fichier, utilise plutôt

while (my $scalar=<WHITELIST>) { }


--
L'esprit qu'on veut avoir gâte celui qu'on a.
Jean-Baptiste Louis Grisset.

Avatar
serge.john.swilting
mais y a t il un moyen avec for

je prefere l utilise

serge


"Emmanuel Florac" a écrit dans le message de
news:


comment faire pour iterer sur les element de whithelist
qui est de la forme
root

swilting


Utilise

foreach my $scalar (@whitelist) { }

pour naviguer dans un tableau.

Pour lire un fichier, utilise plutôt

while (my $scalar=<WHITELIST>) { }


--
L'esprit qu'on veut avoir gâte celui qu'on a.
Jean-Baptiste Louis Grisset.




Avatar
Denis -esp2008-
Bonjour,

for(my$i=0;$i++;$i<=$scalar){
my $t = "0";
print $whithelist[$t];
$t++;
}


J'écrirais plutôt :

my $t = 0;
for(my $i=0 ; $i++ ; $i<=$scalar)
{
print $whithelist[$t];
$t++;
}


--
Denis

Avatar
Benoit Izac
Bonjour,

le 11/07/2004 à 12:07, serge john swilting a écrit
dans le message <ccr40v$am5$ :

for(my$i=0;$i++;$i<=$scalar){
my $t = "0";
print $whithelist[$t];
$t++;
}


for (my $i = 0; $i <= $scalar; ++$i) {
print $whithelist[$i];
}

--
Benoit Izac

Avatar
Emmanuel Florac
Le Sun, 11 Jul 2004 15:53:49 +0200, serge.john.swilting a écrit :


mais y a t il un moyen avec for


Ben oui, tu mets la variable $t à zéro à l'intérieur de la boucle,
forcément elle est toujours à zéro...

Par ailleurs si tu tiens à écrire 10 lignes là où 2 suffisent (sans que
ce soit moins lisible je précise) libre à toi.

--
Quidquid latine dictum sit, altum sonatur

Avatar
Apely AGAMAKOU
Benoit Izac wrote:

Bonjour,

le 11/07/2004 à 12:07, serge john swilting a écrit
dans le message <ccr40v$am5$ :


for(my$i=0;$i++;$i<=$scalar){
my $t = "0";
print $whithelist[$t];
$t++;
}



for (my $i = 0; $i <= $scalar; ++$i) {
print $whithelist[$i];
}



while (<WHITHELIST>) {
print ;
}