Question

Consider:

#! /usr/bin/perl
@no = (1 .. 20000);
foreach(@no) {
    print "<div id=\"world@no\" onclick=\"javascript:showDiv_postscreen(); javascript:hideDiv_welcomebuttons()\">&nbsp;</div>\n";
}

This is my Perl script, but how do I get it to rewrite the sentence with a new variable each time?

I.e., how do I get it to output the following?

<div id="world1" onclick="javascript:showDiv_postscreen(); javascript:hideDiv_welcomebuttons()">&nbsp;</div>
.
.
.
<div id="world20000" onclick="javascript:showDiv_postscreen(); javascript:hideDiv_welcomebuttons()">&nbsp;</div>

Answer 1

The @ in the print statement is confusing the interpreter. Also, it isn’t what you want, since print "@no" would print out the same thing as join(' ',@no). Instead, you want to interpolate each element of @no into the string that’s printed out:

#! /usr/bin/perl 
use strict;
use warnings; #Always use these!
my @no = (1 .. 20000); 
foreach(@no) { 
print "<div id=\"world" . $_ . "\" onclick=\"javascript:showDiv_postscreen(); javascript:hideDiv_welcomebuttons()\">&nbsp;</div>\n"; 
}