[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