«

>>>>> "CD" == Cal Dershowitz <> writes:

CD> How does one use perl to upload images with the meta-data?

One figures out what protocol the server or service one is uploading to
uses to communicate about images and metadata, and one implements that
protocol in Perl. Then one uses that protocol to upload the images and
that metadata.

Different people can work on different parts of that solution, and there
is a fair chance that the minimally clueful can find the first part
mostly done on CPAN if they are using a common service.

Charlton





--
Charlton Wilbur

>>>>> "CD" == Cal Dershowitz <> writes:

CD> The documentation
CD> there though is pretty thin.

Perhaps you are not looking in the right place:

perldoc perlref
perldoc perlreftut

Charlton


--
Charlton Wilbur

On Thursday, January 31, 2013 10:35:07 PM UTC-8, Cal Dershowitz wrote:
> ...
> $ ./capture4.pl
>
> Not a SCALAR reference at ./capture4.pl line 12.
>
> $ perltidy -b capture4.pl
>
> $ cat capture4.pl
>
> #!/usr/bin/perl -w
>
> use strict;
>
> use autodie;
>
> use utf8;
>
> use WWW::Mechanize;
>
> use HTML::TokeParser;
>
>
>
> my $url = 'http://www.fourmilab.ch/yoursky/';
>
> my $mech = WWW::Mechanize->new;
>
> my $result = $mech->get($url);
>
> die "GET failedn" unless $result->is_success;
>
> my $res = $$result;
^^^^^^^^^

$result is an HTTP::Response object so you'll
want something like this, eg,

my $res = $result->as_string;

or:

my $res = $result->dump(...);

See: perldoc HTTP::Message for more about dump()
options

> print "res is" . $res . "\n";
> ...

You'll need to research and modify appropriately
the following as well:

> my $res2 = $$element;

--
Charles DeRykus