There is also discussion about implementing SWITCH equivilents in the
perldoc for perlsyn under the heading 'Basic BLOCKs and Switch
Statements'.
Lou
On 7/13/05, Thomas, Mark - BLS CTR <[EMAIL PROTECTED]> wrote:
> John Deighan wrote:
>
> > We have a goto in our code. I hate it, but there just isn't a good
> "switch" or "case" statement in Perl yet
>
> Yes there is, in Perl 5.8. If you're using an older Perl, you can still get
> Switch.pm from CPAN.
>
> use Switch;
>
> switch ($val) {
> case 1 { print "number 1" }
> case "a" { print "string a" }
> case [1..10,42] { print "number in list" }
> case (@array) { print "number in list" }
> case /\w+/ { print "pattern" }
> case qr/\w+/ { print "pattern" }
> case (%hash) { print "entry in hash" }
> case (\%hash) { print "entry in hash" }
> case (\&sub) { print "arg to subroutine" }
> else { print "previous case not true" }
> }
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
