Programando cosas en perl
Diciembre 12th, 2007 at 8:01pm
Hace unos dias necesitaba una funcion para parsear caracteres no permitidos en un form y me puse a leer y vafe me paso una funcion en php que hacia algo parecido y llegue a esto 
sub caracteres_permitidos {
my $cadena = shift;
if ($cadena =~ m/\|\<|\>|\[|\]|\(|\)|\{|\}|\,|\+|\*|\$|\%|\!|\=|\?|\�|\\’|\;|\&|\|/)
{
return false;
}
return true;
}
Posted in Geek
