Re: ask about array and hash

Or you can loop through them to print the elements:

#!/usr/bin/perl -w
use strict;

my @array = qw(a b c d e f g);
my %hash = (
        '1st' , 'a',
        '2nd' , 'b',
        '3rd' , 'c',
);

while (<@array>) {
        print;
}

foreach my $key (sort keys %hash) {
        print "$key: $hash{$key}\n";
}
[download]

Comment on Re: ask about array and hash Download Code

Replies are listed 'Best First'.

(crazyinsomniac) Re^2: ask about array and hash
by crazyinsomniac (Prior) on Jan 17, 2002 at 10:01 UTC

while(<@array>) {
    print;
}
[download]

Do you realize you're globbing?

Why would you unneccessarily glob?

$$>perl -MO=Deparse -le"@a=qw,1 2 3,;print while<@a>;"

@a = ('1', '2', '3');
print $_ while defined($_ = CORE::GLOBAL::glob(join($", @a), 0));

-e syntax OK
[download]

______crazyinsomniac_____________________________
Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

[reply]
[d/l]
[select]

Re: (crazyinsomniac) ask about array and hash

by xtype (Deacon) on Jan 17, 2002 at 10:27 UTC

Indeed. I wanted to show that there was more than one way to print and or access the data in an array or hash. Hence my using a foreach loop in the second example, also showing use of sort(). I am sorry if my globbing offended you in anyway. -xtype

[reply]

Re: Re: (crazyinsomniac) ask about array and hash

by crazyinsomniac (Prior) on Jan 17, 2002 at 10:50 UTC

augustina_s

______crazyinsomniac_____________________________
Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

[reply]