[mplspm]: Howto do switch with fall-through

[Mark Mykkanen]

http://search.cpan.org/author/DCONWAY/Switch-2.09/Switch.pm

Regards,

Mark

>From: Dan Oelke <Dan at oelke.com>
>Reply-To: mpls at pm.org
>To: mpls at pm.org
>Subject: [mplspm]: Howto do switch with fall-through
>Date: Thu, 29 Aug 2002 14:49:29 -0500
>
>I have a perl programming question for you....
>
>I want to create a switch type statement with fall-through like C provides.
>
>I have a script where it does a number of things in different "phases" for 
>lack of a better phrase.  What I figured I could do was to pass in the 
>phase I wanted to start in, and the script would pick up at that phase and 
>and proceed through the rest.  Add an extra flag and I could have it do 
>only that phase.
>
>Here is a code snippet illustrating what I want.
>#-----------------------------------------------
>use strict;
>
>my $onlyFlag = 1;
>$_ = $ARGV[0];
>
>SWITCH: {
>   if (/Deliver/) {
>     print "Deliver\n";
>     if($onlyFlag) {last;}
>   }
>   if (/Baseline/) {
>     print "Baseline\n";
>     if ($onlyFlag) {last;}
>   }
>   if (/Rebase/) {
>     print "Rebase\n";
>     if ($onlyFlag) {last;}
>   }
>   if (/Build/) {
>     print "Build\n";
>     if ($onlyFlag) {last;}
>   }
>}
>#-----------------------------------------------
>
>Except that when I execute
>       perl test.pl Baseline
>I see only "Baseline" instead of "Baseline Rebase Build"
>
>Any ideas on how I can structure a switch type statement to get what I 
>want, OR maybe just another cool way to restructure this code to get the 
>same effect?
>
>Thanks,
>Dan
>
>
>
>--------------------------------------------------
>Minneapolis Perl Mongers mailing list
>
>To unsubscribe, send mail to majordomo at pm.org
>with "unsubscribe mpls" in the body of the message.




_________________________________________________________________
Send and receive Hotmail on your mobile device: http://mobile.msn.com



--------------------------------------------------
Minneapolis Perl Mongers mailing list

To unsubscribe, send mail to majordomo at pm.org
with "unsubscribe mpls" in the body of the message.