Probleme pour sortir d'une boucle while
Bonjour,
Je voulais faire un affichage des resultat en deux fois.
Mais j'ai un soucis avec ma boucle while
Code:
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
Citation:
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
