HTML Imagemaps erzeugen in einem 8x8-Raster

Skript imagemaps01.pl

#!/usr/bin/perl -w
use strict;
use warnings;

my $url = '192.168.0.15';
my $script = 'cgi-bin/where.pl';

print "<map name='Berlin'>\n";

for (my $j=1; $j<9; $j++) {
    my $y2 = $j*100;
    my $y1 = $y2-99;
    for (my $i=1; $i<9; $i++) {
       my $x2 = $i*100;
       my $x1 = $x2-99;
       print "<area shape='rect' coords='$x1,$y1,$x2,$y2'";
       print "href='http://$url/$script?x1=$x1;x2=$x2;y1=$y1;y2=$y2'>\n";
       }
    }

print "</map>\n";

Ergänzungen, Kommentare

---### Main.??? - 14 Jul 2003 - Betreff