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;
}
Posteos relacionados:
|
|
Posted in Geek
(Visitas para esta entrada 1076 times) 
