[langage] Parcourir une list de array

Version imprimable

Bonjour,

j'ai le code suivant (en gros) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
use Cyrus::IMAP::Admin;
 
my $imap = Cyrus::IMAP::Admin->new('localhost', 143);
 
$imap->authenticate(
        -user     => $user,
        -mechanism => "LOGIN",
        -password => $password,
        );
 
my @list = $imap->list("user.*");
 
my $nb = @list;
 
for(my $count=0; $count < $nb;$count++) {
                $box = $list[$count][0];
                print "$box\n";
}

Sauf que faire un for avec un $count ne me plait pas trop. J'aurais voulu faire un foreach. Mai pas moyen de trouver comment faire.

Selon la doc :

Code:

1
2
3
4
5
6
7
8
 
       listmailbox($pattern[, $reference])
       list($pattern[, $reference])
           List mailboxes matching the specified pattern, start
           ing from the specified reference.  The result is a
           list; each element is an array containing the mailbox
           name, attributes, and the separator.  (This interface
           may change.)

Merci.

08/11/2004, 15h48
Arioch

Tu sais, for et foreach font la même chose dans ton cas : ils parcourent un tableau, élément par élément

Pourquoi ne pas en rester avec ta boucle for façon "C" ?
08/11/2004, 16h01
nledez

Citation:

Envoyé par Arioch

Tu sais, for et foreach font la même chose dans ton cas : ils parcourent un tableau, élément par élément

Pourquoi ne pas en rester avec ta boucle for façon "C" ?

Et bien non for incremente un compteur qui me permet de parcourir ma list.

Alors que foreach pourait me mettre la valeur courante du tableau directement dans $box.
Ce qui m'éviterais de faire un $box = $list[$i] ce que je trouve vraiment moche.

Est-ce que ceci t'inspire un début de solution ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl -w
 
my @sousliste1 = ('a', 'b', 'c', 'd');
my @sousliste2 = ('e', 'f', 'g', 'h');
my @sousliste3 = ('i', 'j', 'k', 'l');
my @liste = ( \@sousliste1 , \@sousliste2, \@sousliste3 );
 
print "for \n";
for (my $i = 0 ; $i < @liste ; $i++)
  {
    print $i."e = ".$liste[$i][0]."\n";
  }
 
print "foreach \n";
foreach $element (@liste)
  {
    print $$element[0]."\n";
  }

08/11/2004, 17h11
nledez

C'est exactement ça.

Merci.