in reply to what is bad about this?
use strict; use warnings; my ($IP_ADDRESS, @REALM1); @REALM1 = qw(alpha beta gamma); $IP_ADDRESS = @REALM1; print "$IP_ADDRESS\n"; @REALM1 = qw(alpha); $IP_ADDRESS = @REALM1; print "$IP_ADDRESS\n"; my $REALM1; $REALM1 = q{alpha}; $IP_ADDRESS = $REALM1; print "$IP_ADDRESS\n";
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: what is bad about this?
by Fletch (Bishop) on Feb 06, 2006 at 22:08 UTC |