Chas. Owens wrote:
On Thu, Sep 17, 2009 at 14:05, Noah Garrett Wallach
<noah-l...@enabled.com> wrote:
Hi there,
I am attempting to read a text file in to two array variables.
--- text file ---
hostname1 ip1
hostname2 ip2
--- text file ---
so basically I would like to have the items in column become an the elements
of an array @routers
and then the items in column two in an array variable of @ips
I suppose I could use split and push to do that but how?
snip
You can use split to create an array of fields in the line:
my @fields = split " ", $record;
and then you can use two calls to push to add the elements to the
desired arrays:
push @routers, $fields[0];
push @ips, $fields[1];
But I would probably use an array of hashrefs like this:
#!/usr/bin/perl
use strict;
use warnings;
my @fields = qw/router ip/;
my @machines;
while (<DATA>) {
my %record;
@reco...@fields} = split;
push @machines, \%record;
}
print "The second router is $machines[1]{router}\n",
"The third IP is $machines[2]{ip}\n";
__DATA__
foo 10.0.0.1
bar 10.0.0.2
baz 10.0.0.3
thats really cool
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
