On Wed, 19 Mar 2014 14:49:32 -0400 "Thomas H. George" <[email protected]> wrote:
> if (/\s*(\w+)\s*(\w+)\*(\w+)\s*(\w+)\s*(\w+)\s*(\w+)/i) {
> $dud1 = $1;
> $dud2 = $2;
> $w_player = $3;
> $n_player = $4;
> $e_player = $5;
> $s_player = $6;
> }
How about:
( $dud1, $dud2, $w_player, $n_player, $e_player, $s_player ) = split;
--
Don't stop where the ink does.
Shawn
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
