Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re: If-else problem

by BigJoe (Curate)
on Jun 15, 2002 at 09:28 UTC ( #174822=note: print w/replies, xml ) Need Help??

in reply to If-else problem

A quick look at 5:00 am (where I am from) I would make a change in you if statement from:
if ($attributes[0] =~m/Di*/){

if ($attributes[0] =~m/Di*/i){
for case insensitvity.
one thing you can do to make it read a little clearer is to try this:
print <<EODUMP; <TABLE WIDTH=65% BORDER=2 ALIGN=CENTER> <TR BGCOLOR=#9999FF><B>Anuncio número $n del $attributes[0]</B></T +R> <TR>De <B>$attributes[1] $attributes[2]</B> que desea vender <FONT + COLOR=#003366><B>$attributes[6] a $attributes[7] €.</B></FONT></TR> <TR>Os podéis poner en contacto con el/ella en los teléfonos <B><F +ONT COLOR=#003366>$attributes[8] // $attributes[9]</B></FONT></TR> <TR>Según el horario que nos idica: <B><FONT COLOR=#003366>$attrib +utes[5]</B></FONT></TR> <TR>Su e-Mail es: <B>$attributes[10]</B> y su URL: <B>$attributes[ +11]</B></TR> <TR BGCOLOR=#FF9999><B>ESTOS SON SUS COMENTARIOS:</B> <BR><FONT COLOR=#333333><I><B>$attributes[12]</I></B></TR></FON +T> </TABLE> <BR><BR> EODUMP
By printing like this you can format your HTML a little more sanely.


Learn patience, you must.
Young PerlMonk, craves Not these things.
Use the source Luke.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://174822]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (11)
As of 2018-06-22 00:52 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (120 votes). Check out past polls.