[FUGSPBR] Ajuda num IF em perl

[J. W. Gomes]

Brother, a string neste caso é "arthur"
falou.

 __      __     __
/\ \  __/\ \  /'__`\
\ \ \/\ \ \ \/\_\L\ \
 \ \ \ \ \ \ \/_/_\_<_
  \ \ \_/ \_\ \/\ \L\ \
   \ `\___x___/\ \____/
    '\/__//__/  \/___/
 ____ ____ ____ ____ ____ ____ ____ ____ ____ ____
||T |||E |||C |||N |||O |||L |||O |||G |||I |||A ||
||__|||__|||__|||__|||__|||__|||__|||__|||__|||__||
|/__\|/__\|/__\|/__\|/__\|/__\|/__\|/__\|/__\|/__\|
----- Original Message ----- 
From: "Arthur Milhomens" <freebsd em cnt.org.br>
To: <fugspbr em fugspbr.org>
Sent: Tuesday, August 20, 2002 4:27 PM
Subject: [FUGSPBR] Ajuda num IF em perl


> 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
> 
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://www.fug.com.br/pipermail/freebsd/attachments/20020820/57718a4b/attachment.html>