[Cascavel-pm] Módulo para utilizar "rules" em Perl5

[Luis Motta Campos]

Er Galvão Abbott - PortoAlegre.pm wrote:
> Flávio:
> 
> Como fica o processo de untaint? Seria algo como:
> 
> #!/usr/bin/perl -wT
> use strict;
> use CGI;
> 
> my $cgi = new CGI();
> 
> my $unsafeUsername = $cgi->param('username');
> my $safeUsername = $1 if $unUsername ~~ /[A-Z][0-9]/i;
> 
> if (defined $safeUsername)
> {
>     ...
> }
> 
> Isso?

   Não precisa atribuir a outra variável. Basta que o Regexp execute com 
sucesso. Quando o regexp executar com sucesso, você vai ter "provado" 
para o interpretador Perl que você conhece *exatamente* o conteúdo da 
variável. Isto é o bastante:

   perl -T
   use strict;
   use warnings;
   my $cgi = new CGI;
   my $unsafe = $cgi->param( 'from-user' );
   $unsafe =~ m/^\w+$/; # its "safe", now.
   __END__

   Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  Luis Motta Campos is Software Engineer, Oracle OCP/DBA, Un*x
  Sysadmin, Member of {Lisbon,São Paulo,Cascavel,Brasil,London}
  Perl Mongers and Perl Fanatic Evangelist
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=


		
_______________________________________________________
Yahoo! Acesso Grátis - Internet rápida e grátis. Instale o discador agora!
http://br.acesso.yahoo.com