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
[choroba]: Morning!
[Corion]: Hi choroba, Discipulus!
[Corion]: Yesterday I've been mulling over how to best generate HTTP requests from permutations of values but I haven't found a nice API for passing in the "template" of the HTTP request yet. I guess I'll have to do a SoPW for that
[Corion]: The API itself will basically be my $iter = generate_http_requ ests(method => 'GET', url => '/settings/:name', headers => ???, get_params => ['foo','bar']), but I'm not sure how to parametrize values in the headers and how to specify lists of ...
[choroba]: On the other hand, lots of options to receive the requests :-)
[Corion]: ... values to be used. For example, I think for headers, one would want to have various kinds of Content-Encoding headers, but for the get_parameters one would have various kinds of Bobby Tables
[choroba]: What about [metadoc:// Algorithm::Loops]?
[Corion]: choroba: Yeah, but handing off the request to Dancer,Plack, Mojolicious,LWP is easy once I have the data filled into some structure ;))
[choroba]: Algorithm::Loops

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (5)
As of 2017-01-17 08:12 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (152 votes). Check out past polls.