Use of uninitialized value in substitution (s///) at C:\perl_stuff\artists.pl line 120.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 122.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 123.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 124.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 125.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 127.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 128.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 129.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 130.
Use of uninitialized value in substitution (s///) at C:\perl_stuff\artists.pl line 120.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 122.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 123.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 124.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 125.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 126.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 127.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 128.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 129.
Use of uninitialized value in concatenation (.) or string at C:\perl_stuff\artists.pl line 130.
And the code...
my $counter = $_[0]; my $x = 1; while ($counter < ($_[0]+11)) { # must escape double quotes, so there won't be JS errors. $artist[$counter][5] =~ s/"/\\"/g; # line 120
print BLAH "band[$x][1] = \"$artist[$counter][0]\"\;\n";
print BLAH "band[$x][2] = \"$artist[$counter][1]\"\;\n";
print BLAH "band[$x][3] = \"$artist[$counter][2]\"\;\n";
print BLAH "band[$x][4] = \"$artist[$counter][3]\"\;\n";
print BLAH "band[$x][5] = \"magnet:?xt=urn:sha1:$artist[$counter][4]&dn=$artist[$counter][10]&xs=http://web1.freepeers.net/uri-res/N2R?urn:sha1:$artist[$counter][4]&dn=$artist[$counter][10]&xs=http://web2.freepeers.net/uri-res/N2R?urn:sha1:$artist[$counter][4]&dn=$artist[$counter][10]\"\;\n";
print BLAH "band[$x][6] = \"$artist[$counter][5]\"\;\n";
print BLAH "band[$x][7] = \"$artist[$counter][6]\"\;\n";
print BLAH "band[$x][8] = \"$artist[$counter][7]\"\;\n";
print BLAH "band[$x][9] = \"$artist[$counter][8]\"\;\n\n";
$counter++;
$x++;
}
Devon
_________________________________________________________________
Get 10MB of e-mail storage! Sign up for Hotmail Extra Storage. http://join.msn.com/?PAGE=features/es
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]