хотелось бы чтобы следующий код выводил: 123
по факту выводит только: 1
т.е. как полагаю, внутри самого switch-а условие $stage нельзя поменять в одном из case без перехода к началу? Или это как-то можно обойти?
#!/usr/bin/perl -w
use strict;
use warnings;
use Switch;
my $stage="1";
switch ($stage) {
case 1 {
print "1";
$stage++;
next;
}
case 2 {
print "2";
$stage++;
next;
}
case 3 {
print "3";
$stage++;
next;
}
}
