Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Manipulating Arrays

by damian1301 (Curate)
on Jul 31, 2001 at 01:38 UTC ( [id://100985] : note . print w/replies, xml ) Need Help??

in reply to Counting repeated values from an array

A more of a golfed response.
@names=qw/tom tom tom green/; my%h;%_=map{$h{$_}++}@names;map{print"$_=",$h{$_},"\n"}keys%h;

$_.=($=+(6<<1));print(chr(my$a=$_));$^H=$_+$_;$_=$^H; print chr($_-39); # Easy but its ok.

Replies are listed 'Best First'.
Re: Re: Manipulating Arrays
by ChOas (Curate) on Jul 31, 2001 at 12:41 UTC
    Or... without some maps:
    my @names=qw/tom tom tom green/; $_{$_}++for@names;print"$_=$_{$_}\n"for keys%_;


    print "profeth still\n" if /bird|devil/;