[FUGSPBR] Ajuda num IF em perl

[Ivan L Quitschal]

if ( $from =~ m/^Arthur/ ) { ... }
else { ... }

ou
 .... if ($from =~ m/^Arthur/) or ....

Lembrem-se que perl eh case sensitive entao eh A maiusculo ou entao se vc quer pegar o arthur do email depois do "<" nao use o ^ pois isso eh pra inicio de linha

tzk 
  ----- Original Message ----- 
  From: J. W. Gomes 
  To: fugspbr em fugspbr.org 
  Sent: Tuesday, August 20, 2002 4:42 PM
  Subject: Re: [FUGSPBR] Ajuda num IF em perl


  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/20020821/98dbd123/attachment.html>