in reply to Re: Creating an image map using Perl code
in thread Creating an image map using Perl code
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
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: Creating an image map using Perl code
by Anonymous Monk on Apr 06, 2006 at 10:22 UTC | |
by lampros21_7 (Scribe) on Apr 06, 2006 at 15:24 UTC |