Re: Join strings problem

[drieux]

On Jan 21, 2004, at 2:26 PM, Luinrandir Hernsen wrote:

#!/usr/local/bin/perl
use strict;
use warnings;
my ($Building, $row, $col);
{ dan's gonna kill me for that one... 8-) }

print qq|Content-type: text/html\n\n|;

my $EW5NS5="TEST.gif"; ##this is the string I need to build.

print qq|<TABLE>\n|;
for ($row=0; $row<10; $row++)
    {
    print qq|<TR>\n|;
    for ($col=0; $col < 10; $col++)
          {
          ##build variable
          $Building=join("".EW.$row.NS.$col);
with warnings on it would have told you about the bare word's
so you could try say:
                        $Building="EW${row}NS${col}";
or say
                         $Building = sprintf("EW%sNS%s", $row, $col);
or say
                        $Building= 'EW' . $row . 'NS' . $col ;
          print qq|<TD bgcolor=black>$Building</TD><TD></TD>\n|;
          }
    print qq|</TR>\n|;
    }
print qq|</TABLE>\n|;
print qq|x $EW5NS5 x <br>\n|;
print qq|x $Building x\n|;
and the last lines look like:

<TD bgcolor=black>EW9NS8</TD><TD></TD>
<TD bgcolor=black>EW9NS9</TD><TD></TD>
</TR>
</TABLE>
x TEST.gif x <br>
x EW9NS9 x
ciao
drieux
---

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>