[VPM] Oh...

abez abez at abez.ca
Wed Aug 18 01:11:49 CDT 2004


brian d foy gave this example in the Perl Review v.1.0

instead of 

my $pie = "";
if (..) { $pie = 1; }
elsif (..) { $pie = 2; }
elsif (..) { $pie = 4; }
elsif (..) { $pie = 8; }

You could do...

my $pie = do {
	if (..) { 1 }
	elsif (..) { 2 }
	elsif (..) { 4 }
	elsif (..) { 8 }
}

saves typing..

-- 
abez ------------------------------------------
http://www.abez.ca/ Abram Hindle (abez at abez.ca)
------------------------------------------ abez



More information about the Victoria-pm mailing list