File: nested2c

package info (click to toggle)
libshell-posix-select-perl 0.09-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 800 kB
  • sloc: perl: 2,727; makefile: 7
file content (20 lines) | stat: -rwxr-xr-x 350 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
#! /usr/bin/perl -w

my $VERSION = 1.02;

use blib;

use Shell::POSIX::Select qw($Heading $Reply $Prompt);

$Prompt='Menu 1';
select my $var (1) {
	warn "inside Outer loop\n";
	$Prompt='Menu 2';
	select my $var2 (qw (a b) ) {
		warn "inside Inner loop\n";
		print "$var$var2\n";
		last;
	}
	warn "outside Inner loop\n";
}
warn "outside all loops\n";