This is the complete code. The print statements work for the coordinates and the webpages so that's fine. The errors are:#!/usr/bin/perl use warnings; use strict; use DBIx::Simple; my $db = DBIx::Simple->connect('dbi:SQLite:dbname=mydatabase.db') or die DBIx::Simple->error; open (X_POINTS,"x_points.txt") || die "couldn't open the file!"; open (Y_POINTS,"y_points.txt") || die "couldn't open the file!"; # Insert all the x points in an array my @x_points = <X_POINTS>; # Insert all the y points in an array my @y_points = <Y_POINTS>; close(X_POINTS); close(Y_POINTS); print @x_points; print @y_points; my @webpages; my $webpage_no = 500; for (my $count=0; $count <= $webpage_no; $count++) { $webpages[$count] = $db->query("SELECT webpage FROM webpages_dat +a WHERE id = '$count'")->list; } print @webpages; print q(<IMG SRC="figure.gif" USEMAP="#mymap"> <MAP NAME="mymap"> ) for (my $secondcount=0; $secondcount <= $webpage_no; $secondcount++) +{ print qq(<AREA SHAPE=circle COORDS="$x_points[$secondcount],$y_po +ints[$secondcount],1" HREF="$webpages[$secondcount]">); } print q(</MAP>); ******************************************
syntax error at image_map_gui.pl line 49, near "0;"
syntax error at image_map_gui.pl line 49, near "++) "
Execution of image_map_gui.pl aborted due to compilation errors. Can't really understand what's the problem here. If i comment out the JavaScript and the for loop bit it works fine but if i add those it gives the errors. Any ideas? thanks for your help
In reply to Re^2: Creating an image map using Perl code
by lampros21_7
in thread Creating an image map using Perl code
by lampros21_7
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |