[Cascavel-pm] Criar links em um texto

[Fernando Oliveira]

perl -e '$texto = "O Jornal nº 121/2006 apresenta bla bla bla bla bla,
diferente da
revista nº 54 de maio/2000 que bla bla bla bla"; $texto =~
s#(jornal|revista)\s+(?:.*?)?\s+(\d+)\s*.*?/(\d{4})#"<a
href=\"lerolero.pl?tipo="
. ((lc $1 eq "jornal")?1:2) . "&num=$2&ano=$3\">$1</a>"#gei; print
$texto,$/'


O <a href="lerolero.pl?tipo=1&num=121&ano=2006">Jornal</a> apresenta bla bla
bla bla bla, diferente da
<a href="lerolero.pl?tipo=2&num=54&ano=2000">revista</a> que bla bla bla bla


Em 02/07/07, fernandolouis em terra.com.br <fernandolouis em terra.com.br>
escreveu:
>
>  > Antes que alguém diga RTFM...
> Obrigado!
>
> > $texto =~ s/((\d+) refrigerantes)/<a href="lerolero.pl?quantidade=$2">$1<\/a>/g
>
> > O primeiro abre parênteses que bater vai para o $1
> > O segundo vai para $2
> > []s
> > Wendel
>
> PERFEITO Wendel!
> A "quantidade" e a "descrição" está resolvido. Realmente eu desconhecia
> essas variáveis especiais de expressões constantes.
>
> Mas e o "tipo"???
> se for "revista" deve ir "programa.pl?tipo=1" e se for "jornal" deve ir "
> programa.pl?tipo=2".
>
> não posso fazer um "if" dentro das regex... então como proceder?
>
> []s,
> Fernando
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>



-- 
[]'s Fernando
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070702/4774ab8c/attachment.html