Toggles in Perl (or other langs)

[Brett_Tabke]

I use this 4 liner alot to flip between colors in generated tables (used on home page and within thread displays here):

$bg++;
$bg=0 if $bg > 1;
$bgcolor ="fafafa";
$bgcolor ="ffffff" if $bg;

Example <tr bgcolor="#$bgcolor">

Got a quicker way to to the 4 lines?

[littleman]

I don't know if it is shorter but I've been doing this approach.

$bg =1;
--
if ($bg) {$bgcolor ="fafafa"; $bg=0;}
else {$bgcolor ="ffffff"; $bg=1;}

[sugarkane]

How about this?

$bgcolor="ffffff";
$bgcolor2="fafafa";

($bgcolor, $bgcolor2) = ($bgcolor2, $bgcolor);

Use the 3rd line in your loop to toggle between the 2 values

[Air]

push (@bgcolor, "ffffff" , "fafafa");
print "<tr bgcolor=#$bgcolor[$bg++]>\n";

[Brett_Tabke]

That's slick Air, but memory inefficient and I'd bet the push is quite a bit slower than a pure declaration.

That is also slick SK.