[FUGSPBR] Ajuda num IF em perl

Thomas Britis thomas em tcnet.com.br
Qua Ago 21 13:58:08 BRT 2002


Aparentemente o problema é de sensitive case.
Arthur != arthur

Vc tem duas possiblidades.
1 - if ($from =~ /^"Arthur"/)
2 - if ($from =~ /^"arthur"/i)

	Se não for esse o problema, é só dizer. Não testei. :-)

Arthur Milhomens wrote:
> Pessoal,
> 
> Estou precisando alterar um CGI mas não tenho muito conhecimento de
> programação perl.
> Preciso procurar uma string dentro de uma variavel num if e não consigo.
> Agrandeço a ajuda.
> 
> 
> Exemplo:
> 
> Variavel:
> from = '"Arthur Millhomens" <arthur em dominiox.com.br>'
> 
> O IF:
> if ( $from =~ /^"arthur"/ ) {
>    ...
> } else {
>    ...
> }
> 
> 
> 
> ________________________________________________
> Para sair da lista visite o URL abaixo:
> http://www2.fugspbr.org/mailman/listinfo/fugspbr
> 
> 


-- 
Thomas Storino Britis
thomas em tcnet.com.br
TCNet Informática e Telecomunicações LTDA
http://www.tcnet.com.br
+55 (35) 3425-2556

________________________________________________
Para sair da lista visite o URL abaixo:
http://www2.fugspbr.org/mailman/listinfo/fugspbr



Mais detalhes sobre a lista de discussão freebsd