OK, I've stumped myself. I wanted to assign 0 to several variables,
except for a single variable that should be set to 1.

Before I knew what I was doing I whipped this code into my editor:
 
  ($frow = $ax = $bx = $cx = 0)++;
 
...and it works as I expected. That is, all of the variables are set to
0 except $frow which is 1.

Now I'm afraid that it might not always work because I don't understand
why it works in the first case. Anyone want to suggest if this is stable
code or not?

Barry Brevik

_______________________________________________
ActivePerl mailing list
ActivePerl@[...].com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs