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
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
