Bonjour,
Je voulais faire un affichage des resultat en deux fois.
Mais j'ai un soucis avec ma boucle while
Au niveau de l'affichage
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 : "; } }
Et le programme ne me rend pas la main.
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
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
Partager