On Thu, May 17, 2001 at 03:33:02PM -0700, Bob Miller wrote: > Cory Petkovsek wrote: > > > 2) visually audit the thumbnails > > solution: > > I'm thinking what I would like ideally is a script that could open a > > graphic then wait for one of several keys. Left/right arrows would > > slide-show through the array of filenames. up/down arrows would > > switch between the various sizes (thumbnail/thumb2/master/original) > > of the same pic. Space would print the filename to the console (to > > be redirected to a file). Esc would quit. > > I suggest you use a web browser as your user interface. If it were > me, I'd write a CGI script that builds an HTML page that includes the > images and a set of radio buttons to allow me (or other users) to > pick. Have the form's SUBMIT button reinvoke the CGI script to record > the choice(s) to a log file and move to the next image set. Write a > separate perl script that reads the log file and does what it says. Sorry Bob, a web browser is too slow and clunky for the quantity of pictures. Read on though.. > Perl/Tk can do it. It won't be straightforward > > > Once such an image is loaded, will the perl script still be > > listening on the keyboard? > > Perl/Tk programs are event-based, if I remember right, so you can > define a keyboard event handler. Yes!! pTk is it! I've already got it loading jpegs, and responding to up/down/left/right arrow keys! This is like programming candy! Years ago I programmed win3.1 programs. It was a nightmare just to pop up a window. perl/tk is sooo easy! and very quick! > > Seth recently converted some CPAN modules into packages, I tried to > but didn't get it working. (I still don't really grok Debian, I'm > sorry to say.) If you like packages, you might as well take the time > to use them. Thanks seth! I grabbed dh-make-perl, and made my first debianized cpan module: dh-make-perl --build --cpan Tk::JPEG built a package in my current dir. I suppose I could have used the --install switch as well. Perl and perl/tk blows my mind! Anything one wants to do one can do in C. However with Perl, half of what you want to do is already done!
