autogallerySQL perl directive

[fucter]

Im trying to get a perl script to work that displays different banner ads randomly, so everytime I do a build I should have a diffrent banner ad

heres what I wrote:

#!/usr/bin/perl
my $range = 13;
my $random_number = int(rand($range));

$image[1]['pic']='example.banner.jpg';
$image[1]['link']='http://some.domain';

$image[n]['pic']='example.banner.jpg';
$image[n]['link']='http://some.domain';



print '<a href="'. $image[$random_number]['link']. '">';
print '<img src="'. $image[$random_number]['pic']. '" border=0>';
obvioulsy, I left some links out and abbreviated them for 1 to n

well, this code doesnt work, i tried replacing 'print' with 'data .=' but that didnt work either (well, it sorta worked, the image and the link were the same for some reason.
Anyone have an idea what I am talking about, and how to fix it?

[cd34]

First, you're using perl, not php. ['asdf'] will evaluate as 0, {'asdf'} is how perl accesses hashes.

I would suspect you want something like:


#!/usr/bin/perl

my $range = 13;
my $random_number = int(rand($range));

$image[1]='example.banner.jpg';
$link[1]='http://some.domain';

$image[n]='example.banner.jpg';
$link[n]='http://some.domain';



$data .= '<a href="'. $link[$random_number] . '">';
$data .= '<img src="'. $image[$random_number] . '" border=0>';

[fucter]

oh god, is there an emoticon for embarrassed? Thnaks, Ill try that out|roses|