Bonjour,

Je voulais faire un affichage des resultat en deux fois.
Mais j'ai un soucis avec ma boucle while

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
 
# Dans mon tableau @scName, j'ai sam03, sup04
 
foreach my $scName (@scName)
{
        foreach (@results)
        {
                next if ( $_ =~/Proc|Component|boards|PROC|^$/ ) ;
                print "$_";
        }
 
        print "\n [c]ontinuez ou [q]uitter : " if ( $scName =~ /sam03/ ) ;
        while ( $_ = <> )
        {
        exit 0 if ( $scName =~ /sup04/) ;
                if ( m/^c/ ) {
                        last  ;
                } elsif ( m/^q/ ) {
                        exit 0 ;
                } else {
                        print "\n Ooption invalide\n";
                }
        print "\n [c]ontinuez ou [q]uitter : ";
        }
}
Au niveau de l'affichage

PLATFORM:
=========
Platform Type: Intel
CSN:
====
Chassis Serial Number: 0550MM2212
COD:
====
Chassis HostID: 5014936D86098

[c]ontinuez ou [q]uitter : c

PLATFORM:
=========
Platform Type: Intel
CSN:
====
Chassis Serial Number: 0550MM2216
COD:
====
Chassis HostID: 5016803Y0934U

Et le programme ne me rend pas la main.

Je ne comprends pas pourquoi.

Si Par hasard, vous avez une idée de comment faire un affichage en plusieurs fois, genre affiché 10 ligne à la fois. Ca m'aiderai bien aussi.

merci de votre aide