[Programación] Cosas a la perl que no cazo.... y que me dan error...

[Horacio Castellini]

Esta cosa a la perl si funca aunque no entiendo bien que hace....
# 1--------------------
%A=();
@A{map{$_->[0]} @C}=();
$cont2=scalar keys %A;
# 2--------------------------------
@T1=map{ my $actual=$_; [$_, scalar (grep {$_->[0]==$actual} @C)]} (keys
%A);
print join(',',@$_),$/ for @T1 ;

Pero esta última da este error...
================================================
Argument "Maximiliano M=FCller" isn't numeric in numeric eq (==) at
filtro.pl li
ne 87, <> line 637.
Argument " AndrM-is D'Elia" isn't numeric in numeric eq (==) at
filtro.pl line 8
7, <> line 637.
Argument " AndrM-is D'Elia" isn't numeric in numeric eq (==) at
filtro.pl line 8
7, <> line 637.
Argument " AndrM-is D'Elia" isn't numeric in numeric eq (==) at
filtro.pl line
=============================================================
Además de perderme con las funciones anónimas... veré de solucionarlo a
la C... ;)


	

	
		
___________________________________________________________ 
1GB gratis, Antivirus y Antispam 
Correo Yahoo!, el mejor correo web del mundo 
http://correo.yahoo.com.ar