comment on

From what I can gather from your post, running Perl cgi is what you are after, if you want to communicate between a browser and Perl. But I don't understand EXACTLY what sort of program you are trying to create. Do you want to be able to use a browser, and go into a directory of untouched images, select from those images, to make a custom html page which shows your selections as thumbnails? Or do you want a local Tk program, which will allow you to select from a group of images to make an html page?

I just recently posted a Tk example, to preview images with thumbnails at Tk-thumbnail-viewer, and you could modify that, so that when you click the main image, it would copy it to a "Selected Directory", along with it's thumbnail. Then once your selections are done, you could make a sub to make a custom html page, from everything, in the selected-dir, thumbnails on the left, main images on the right. You could even automatically upload it to your web-server with lwp. Here is a simple framed html page generator, which you could run in your selected dir.

#!/usr/bin/perl
use warnings;
use strict;
use Imager;
use Cwd;
use File::Basename;

#but imager makes it easy opening different file types

#watch the width of your picture names
#they can widen the table cells if too long
umask 0022;
my $image = Imager->new();
my $count = 0;
my $dir = cwd;
my @exts = qw(.jpg .png .gif); # list allowed extensions
my @pics= <*.jpg *.gif *.png>;

open(HEADER,">header.html");
print HEADER<<End_Header;
<html>
<BODY Text="#99CCFF"  BGCOLOR="#000000">
<center><h1>Thumbnails for $dir</h1></center>
</body>
</html>
End_Header
close HEADER;

open(INDEX,">index.html");
print INDEX<<End_Index;
<html>
<head>
<TITLE>Thumbnails</TITLE>
<link rel="icon" href="favicon.ico">
</head>
<frameset rows="70,*" border="0">
 <frame name="header" src="header.html" marginwidth="0" marginheight="
+0" scrolling="off" frameborder="0">
  <frameset cols="130,*" border="0">
    <frame name="left" src="left.html" marginwidth="5" marginheight="5
+" scrolling="yes" frameborder="5">
    <frame name="main" src="main.html" marginwidth="5" marginheight="5
+" scrolling="yes" frameborder="5">
  </frameset>
</frameset>
</html>
End_Index
close INDEX;

open(MAIN,">main.html");
print MAIN<<End_Main;
<html>
<BODY TEXT="#FFCCCC" BGCOLOR="#000000">
<center><h1>Click thumbnails at left to view</h1></center>
</body>
</html>
End_Main
close MAIN;


open(OUT,">left.html");
print OUT<<End_Header;
<html>
<body>
<table align=left bgcolor=9999CC border=2 cellpadding=2 cellspacing=2>
<tr>
End_Header

foreach my $pic (@pics){    
      $count++;
      my ($basename,$path,$suffix) = fileparse($pic,@exts);
      
      $image->open(file=>$pic) or die $image->errstr();
#      my $w = $image->getwidth();
#      my $h = $image->getheight();

      # Create smaller version
      my $thumb = $image->scale(xpixels=>100);

      #$basename.="-t$suffix"; #keeps same ext
      $basename.='-t.jpg'; #make all thumbs as jpg
      print "Storing image as: $basename\n";
      $thumb->write(file=>$basename, jpegquality=>30) or die $thumb->e
+rrstr;
#      my $tw = $thumb->getwidth();
#      my $th = $thumb->getheight();

print OUT<<EOTR;
<td align=center><a href="$pic" target=main alt="[$pic]"><img alt= [$p
+ic-thumbnail] src=$basename ></a><br>$pic</td>
EOTR
if($count == 1){print OUT "</tr><tr>"; $count = 0};
}

print OUT<<EOHTML;
</tr>
</table>
</body>
</html>
EOHTML

close OUT;
[download]

A local Tk program will be faster than a browser-based solution, because your server will not give you as much cpu time as your local machine will.

I'm not really a human, but I play one on earth. flash japh

In reply to Re: Using Perl as a front-end and a back-end to HTML -- is it possible? by zentara
in thread Using Perl as a front-end and a back-end to HTML -- is it possible? by liverpole

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		`&`
	<		`<`
	>		`>`
	[		`[`
	]		`]`

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.