[Cascavel-pm] Módulo para utilizar "rules" em Perl5
"Er Galvão Abbott - PortoAlegre.pm"
pmpoa em galvao.eti.br
Terça Março 14 16:19:19 PST 2006
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?
Galvão
Flavio S. Glock wrote:
> Nélson:
>
> este módulo é "perl5"!
>
> Em perl6:
>
> 'abc' ~~ /((.).)./;
> say $0; # ab
> say $0[0] # a
>
> - Flavio S. Glock
>
> 2006/3/14, Nelson Ferraz <nferraz em gmail.com>:
>
>> On 3/13/06, Flavio S. Glock <fglock em gmail.com> wrote:
>>
>>> use Pugs::Compiler::Rule;
>>>
>>> my $rule = Pugs::Compiler::Rule->compile( '((.).).' );
>>> my $match = $rule->match( 'abc' );
>>>
>>> if ($match) { # true
>>> print $match; # "abc"
>>> print $match->from; # 0
>>> print $match->to; # 3
>>> print $match->[0]; # "ab"
>>> print $match->[0][0]; # "a"
>>> }
>>>
>> Sabe o que me assusta um pouco? É que isso se parece muito com Java:
>>
>> Pattern pattern = Pattern.compile("(.*):(.*)");
>> Matcher matcher = pattern.matcher("10:20");
>> if(matcher.matches())
>> {
>> System.out.println(matcher.group()); // 10:20
>> System.out.println(matcher.group(1)); // 10
>> System.out.println(matcher.group(2)); // 20
>> }
>>
>> []s
>>
>> Nelson
>> _______________________________________________
>> Cascavel-pm mailing list
>> Cascavel-pm em pm.org
>> http://mail.pm.org/mailman/listinfo/cascavel-pm
>>
>>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
Mais detalhes sobre a lista de discussão Cascavel-pm