Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

Re: Tk-thumbnail-viewer

by Rudif (Hermit)
on Mar 13, 2006 at 22:19 UTC ( #536403=note: print w/replies, xml ) Need Help??


in reply to Tk-thumbnail-viewer

Very neat. Works for me on WinXP (after I installed ImageMagick and PerlMagick).

The directory browser seems to ignore (fails to open any images in) subdirectories whose names contain spaces or dashes (legal characters in Win32 filenames).

Rudif

Replies are listed 'Best First'.
Re^2: Tk-thumbnail-viewer
by zentara (Archbishop) on Mar 13, 2006 at 22:54 UTC
    I tried the - and space on linux, and the - works, but not the name with spaces. You can easily adjust it to suit your system, just change the line my @files = glob "$path/*"; to whatever command works well on win32.

    Yeah I just looked at it, and File::Glob will do the trick on linux. Change

    # my @files = glob "$path/*"; use File::Glob ':glob'; my @files = bsd_glob( "$path/*"); #includes spaces

    I'm not really a human, but I play one on earth. flash japh
Re^2: Tk-thumbnail-viewer
by zentara (Archbishop) on Mar 16, 2006 at 16:20 UTC
    Hi again. FYI, I don't know if you have encoding problems on WinXP, but I had a problem with extended ascii characters in art/Paintings/Gellee, where the filename had European chars in them. This would cause errors in opening the file, if I retreived the filename from a stored string. See Re: problems with extended ascii characters in filenames

    I changed the glob to a readdir and used Encode::decode.


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

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://536403]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (2)
As of 2023-02-04 21:55 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I prefer not to run the latest version of Perl because:







    Results (31 votes). Check out past polls.

    Notices?