El Wednesday, 1 de April de 2009 13:55:12 Jose Luis Perez Diez va escriure: > sub que { > return "error\n" if ($_ == 2); > return "timeout\n" if ($_ == -1); > return "$_\n"; > } Opss sub que { my $valor= shift; return "error\n" if ($valor == 2); return "timeout\n" if ($valor == -1); return "$valor\n"; }