[Cascavel-pm] Criar links em um texto

[fernandolouis em terra.com.br]

Claro! É só usar um "if simplificado" dentro da regex e juntar tudo concatenando...

Mas e se mais pra frente, além de "revista" e "jornal", também tenha "panfleto" e "cartaz", por exemplo.

Como ficaria de forma "simplificada"?
. ((lc $1 eq "jornal")?1:2) . 

[]s,
Fernando

> 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,$/'

>> não posso fazer um "if" dentro das regex... então como proceder?
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20070702/5b2f77f7/attachment.html