<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.6000.16481" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Claro! É só usar um "if simplificado" dentro
da regex e juntar tudo concatenando...</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Mas e se mais pra frente, além de "revista" e
"jornal", também tenha "panfleto" e "cartaz", por exemplo.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Como ficaria de forma "simplificada"?</FONT></DIV>
<DIV>. ((lc $1 eq "jornal")?1:2) . </DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>[]s,</FONT></DIV>
<DIV><FONT face=Arial size=2>Fernando</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV>> perl -e '$texto = "O Jornal nº 121/2006 apresenta bla bla bla bla bla,
diferente da<BR>> 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,$/'<BR><BR><FONT
face=Arial size=2>>> não posso fazer um "if" dentro das regex... então
como proceder?</FONT></DIV></BODY></HTML>