Re: Manipulating Arrays

A more of a golfed response.

@names=qw/tom tom tom green/;
my%h;%_=map{$h{$_}++}@names;map{print"$_=",$h{$_},"\n"}keys%h;
[download]

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

Comment on Re: Manipulating Arrays Select or Download Code

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%_;` [download] GreetZ!, ChOas print "profeth still\n" if /bird\|devil/;	[reply] [d/l]


There's more than one way to do things
	PerlMonks