hash array loop in sequence?

[Slickuser]

my %data = (
"name" => "BOB",
"age" => 35,
"sex" => "M",
"phone" => "555-5555",
"city" => "LA",
"state" => "CA",
"country" => "US"
);

foreach my $entry (keys %data)
{
print $entry ." ". $data{$entry} ."\n";
##can't use sort keys or values
}


If I got my hash array like this.
How can loop through in the order of name, age, sex, phone, city,
state, country?

 

[Andrzej Adam Filip]

my %data = (
"name" => "BOB",
"age" => 35,
"sex" => "M",
"phone" => "555-5555",
"city" => "LA",
"state" => "CA",
"country" => "US"
);

foreach my $entry (keys %data)
{
print $entry ." ". $data{$entry} ."\n";
##can't use sort keys or values
}


If I got my hash array like this.
How can loop through in the order of name, age, sex, phone, city,
state, country?

Have you considered using (simple) SQL database? e.g. SQLite
see DBD::SQLite on CPAN.org

If you want only one order of entries then consider using btree tied
hashes supported by DB_File module.

 

[Owen]

my %data = (
        "name"                => "BOB",
        "age"         => 35,
        "sex"         => "M",
        "phone"               => "555-5555",
        "city"                => "LA",
        "state"               => "CA",
        "country"     => "US"
);

foreach my $entry (keys %data)
{
        print $entry ." ". $data{$entry} ."\n";
        ##can't use sort keys or values

}

If I got my hash array like this.
How can loop through in the order of name, age, sex, phone, city,
state, country?

You might want to try and array of your keys in the order you want

my @array =("name","age", etc);

then for each entry, loop through the array values printing
$data{$array[n]}



Owen

 

[smallpond]

my %data = (
"name" => "BOB",
"age" => 35,
"sex" => "M",
"phone" => "555-5555",
"city" => "LA",
"state" => "CA",
"country" => "US"
);

foreach my $entry (keys %data)
{
print $entry ." ". $data{$entry} ."\n";
##can't use sort keys or values

}

If I got my hash array like this.
How can loop through in the order of name, age, sex, phone, city,
state, country?

foreach my $entry qw(name age sex phone city state country )
{
print $entry ." ". $data{$entry} ."\n";
}

 

[Jürgen Exner]

my %data = (
"name" => "BOB",
"age" => 35,
"sex" => "M",
"phone" => "555-5555",
"city" => "LA",
"state" => "CA",
"country" => "US"
);

If I got my hash array like this.
How can loop through in the order of name, age, sex, phone, city,
state, country?

Sorted by any of those values or sorted by all of those values, i.e.
people with same name will be sorted further by age, and those with same
name and age will be sorted further by sex?

Either way, see the man page as well as 'perldoc -q sort'.

If the former then e.g. (sketch only, untested):

@sorted = sort {$a{name} cmp $b{name}} , keys(%data);
foreach (@sorted){
print $_;
}

If the latter then you got two options:
- Perl's sort() is stable. Therefore you can sort by the lowest criteria
first. And then sort again by the second-lowest and the third-lowest
etc. until the last pass is with your top criteria. This is expensive
because you are sorting the same data many times over.
- or you can do it in one pass by simply creating a proper custom
compare function as described in the man page and the FAQ.

jue

 

[xhoster]

foreach my $entry qw(name age sex phone city state country )
{
print $entry ." ". $data{$entry} ."\n";
}

I was surprised that this works. I thought the list of a foreach *had* to
be in parentheses, and that the qw() wouldn't count as parentheses.

Xho

--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.

 

[xhoster]

linux% perl -le 'foreach my $entry @ARGV {print $entry}' a b c d e
Array found where operator expected at -e line 1

As the error message says, it is looking for an operator, not just "(".

Is "(" really an operator?

Xho

--
-------------------- http://NewsReader.Com/ --------------------
The costs of publication of this article were defrayed in part by the
payment of page charges. This article must therefore be hereby marked
advertisement in accordance with 18 U.S.C. Section 1734 solely to indicate
this fact.

 

[Eric Pozharski]

If I got my hash array like this. How can loop through in the order
of name, age, sex, phone, city, state, country?

print "$_ => $data{$_}\n"
foreach (qw( name age sex phone city state country ));

=begin off-topic

regarding time that passed for your post to be answered -- consider
getting real news-feed.

=end off-topic

 

[Eric Pozharski]

linux% perl -le 'foreach my $entry @ARGV {print $entry}' a b c d e
Array found where operator expected at -e line 1

As the error message says, it is looking for an operator, not just
"(".

It is looking for an array (I<-w> rocks):

Array found where operator expected at -e line 1, at end of line
(Missing operator before ?)
Scalar value @ARGV { print $x } better written as $ARGV { print $x } at
-e line 1.
syntax error at -e line 1, near "$x @ARGV "
Execution of -e aborted due to compilation errors.

 

[Eric Pozharski]

It is looking for an array (I<-w> rocks):

Oh no, I did it again. B<foreach> is looking for list.

*CUT*