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";
In reply to Re: what is bad about this?
by jkeenan1
in thread what is bad about this?
by edwardt_tril
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |