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

image::Magick and images generated by script

by jonnyfolk (Vicar)
on Oct 16, 2008 at 04:26 UTC ( #717394=perlquestion: print w/replies, xml ) Need Help??
jonnyfolk has asked for the wisdom of the Perl Monks concerning the following question:

I need to generate on the fly thumbnails from online sources, and have a script which does this perfectly. I have recently been asked to apply this to images from a particular source and (unsurprisingly) the script breaks!

#!/usr/bin/perl -w use strict; use CGI::Carp qw(fatalsToBrowser warningsToBrowser); print "Content-type: text/html\n\n"; use Image::Magick; my($image, $x); $image = Image::Magick->new; $x = $image->Read('http://mysite.com/brochure_image.asp?id=242910&pr +op=mine&nocache=8959'); warn "$x" if "$x"; $x = $image->Crop(geometry=>'100x100+100+100'); warn "$x" if "$x"; $x = $image->Write('x.png'); warn "$x" if "$x";

Can anybody help with a suggestion of how to get/rename the image to a more conventional format?

Thank you.

Replies are listed 'Best First'.
Re: image::Magick and images generated by script
by Anonymous Monk on Oct 16, 2008 at 04:43 UTC
    Typical confusion, the magick and DWIMmery doesn't go that far without help :) Here's the regular way to do it
    use LWP::Simple qw' mirror getstore '; getstore($url, $file) mirror($url, $file) $image->Read($file); ...
    this may not work due to your webserver config (creating sockets)
      That worked very well for me - thank you very much!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://717394]
Approved by CardinalNumber
help
Chatterbox?
[shmem]: sounds good.
[shmem]: but I'm crumbling smaller stones. remember...
[stevieb]: I'm working on it to fatten it up and make it more reliant so I can finalize my Raspberry Pi automated build system for that software :) It's all well and fun, until I try to make it work with Windows lol
[shmem]: "debugging a program is more difficult than to write it in the first place. If you code your program as smart as you are, you are, by definition, too dumb to debug it."
[stevieb]: I literally laughed. That's good :) Perhaps I just need to go climb another mountain and forget about it

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (3)
As of 2017-03-28 22:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should Pluto Get Its Planethood Back?



    Results (342 votes). Check out past polls.