Programando cosas en perl

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;
}

Charla sobre Xen en WhyFLOSS

En el dia de hoy expuse sobre Xen, su uso y aplicacion en el ambito empresarial, hogareño, de educación en investigación, dentro de WhyFloss, un evento de Software Libre realizado en el ITBA, las espectativas fueron muy buenas, al parecer a los asistentes les interezo la charla, al final reparti cds de ubuntu para todos, muchas gracias a Zoid y a Cerbero por venir.

Aqui estoy mostrando mi script de graficas por RRDTool para detectar TopUsers

Algunos de los Asistentes

Hablando de nuevo y mostrando algunos ejemplos de scripts etc

A final antes de irme

 

Muy bueno el evento y desde ya agradecido por la organización de WhyFloSS por invitarme a participar