Re: Perl 5.10: switch statement demo

talexb,
Golf Challenge: FizzBuzz may be of interest to you. Also, take a look at perlsyn. While there is an implicit break in every when clause, you can get around this by using an explicit continue. A few other notes, you could use feature qw/say switch/;. There is more discussion of perl 5.10 doodads at Bring Out Your New Perl Code. For example:

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;

for (1 .. 105) {
    my $what = '';
    given ($_) {
        when (not $_ % 3) { $what .= ' fizz'; continue }
        when (not $_ % 5) { $what .= ' buzz'; continue }
        when (not $_ % 7) { $what .= ' sausage' }
    }
    say "$_$what";
}
[download]

Cheers - L~R

Comment on Re: Perl 5.10: switch statement demo Select or Download Code

Replies are listed 'Best First'.
Re^2: Perl 5.10: switch statement demo by ikegami (Patriarch) on Dec 19, 2007 at 22:32 UTC
I wonder why you switched from "when the remainder is zero" to "when not the remainder". (Reminds me of the baby in Dinosaurs: "Not the Momma! Not the Momma!") Update: Nevermind, I guess it can be read "when no remainder". I guess I don't think of a remainder of zero as there being no remainder, so it looks weird to me.	[reply]
Re^3: Perl 5.10: switch statement demo by talexb (Chancellor) on Dec 20, 2007 at 16:26 UTC
The modulo construct can also be thought of as 'divisible by' -- so `$foo % 3` checks to see if `$foo` is divisible by 3. Or at least that's the way my brain works. Alex / talexb / Toronto "Groklaw is the open-source mentality applied to legal research" ~ Linus Torvalds	[reply] [d/l] [select]
Re^4: Perl 5.10: switch statement demo by ikegami (Patriarch) on Dec 20, 2007 at 21:27 UTC
That's backwards. `$foo % 3` checks if $foo isn't divisible by 3. `not $foo % 3` would deceptively check if is divisible by 3.	[reply] [d/l] [select]
Re^5: Perl 5.10: switch statement demo by talexb (Chancellor) on Dec 20, 2007 at 21:30 UTC


Your skill will accomplish what the force of many cannot
	PerlMonks