Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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(' +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?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://717394]
Approved by CardinalNumber
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others lurking in the Monastery: (3)
As of 2018-05-25 01:34 GMT
Find Nodes?
    Voting Booth?