Jeff Pan <mailto:[EMAIL PROTECTED]> wrote:
: Is this feasible?
Yes, but ...
: while(<>)
: {
: next unless /$host/;
: $_=~/\((\w+)\,(\d+)\)\s+\((\w+)\,(\d+)\)/;
What happens if this doesn't match? Then $1, $2,
$3, and $4 will be unitialized in the next statement.
Better to check that this match happens.
: my @array=("$1","$2","$3","$4");
Why are $1, $2, $3, and $4 in quotes? What's
wrong with this:
my @array = ( $1, $2, $3, $4 );
Or this:
my @array = //;
: }
HTH,
Charles K. Clarkson
--
Mobile Homes Specialist
254 968-8328
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
