Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
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.

Comment on image::Magick and images generated by script
Download Code
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?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (9)
As of 2014-08-30 15:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (293 votes), past polls