autogallerySQL perl directive

fucter · 2006-10-18, 10:24 PM

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:

Code:

#!/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?

2006-10-18, 10:24 PM	#1
fucter Rock stars ... is there anything they don't know? Join Date: Sep 2006 Location: philadelphia Posts: 18	autogallerySQL perl directive 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: Code: #!/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?