Skip to content

Instantly share code, notes, and snippets.

@kentfredric
Created January 7, 2013 22:27
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save kentfredric/111e96b5c226b3fda53e to your computer and use it in GitHub Desktop.
Save kentfredric/111e96b5c226b3fda53e to your computer and use it in GitHub Desktop.
curl -v 'http://search.cpan.org/meta/IO-Tee-0.64/META.yml'
* About to connect() to search.cpan.org port 80 (#0)
* Trying 194.106.223.155...
* connected
* Connected to search.cpan.org (194.106.223.155) port 80 (#0)
> GET /meta/IO-Tee-0.64/META.yml HTTP/1.1
> User-Agent: curl/7.28.1
> Host: search.cpan.org
> Accept: */*
>
< HTTP/1.1 200 OK
< Date: Mon, 07 Jan 2013 21:53:47 GMT
< Server: Plack/Starman (Perl)
< Content-Type: text/yaml
< Via: 1.1 BC5-ACLD
< Content-Length: 0
< Connection: Keep-Alive
< Age: 0
<
* Connection #0 to host search.cpan.org left intact
* Closing connection #0
use v5.16;
use warnings;
use File::Fetch;
use Cwd;
$File::Fetch::DEBUG = 1;
my $fetcher = File::Fetch->new( uri => 'http://search.cpan.org/meta/IO-Tee-0.64/META.yml' );
my $where = $fetcher->fetch( to => Cwd::cwd );
perl -I/home/kent/perl5/lib/perl5 -MFile::Fetch -E 'say File::Fetch->VERSION'
0.36
[kent@k2 tmp]$ perl -I/home/kent/perl5/lib/perl5 -MFile::Fetch /tmp/ff.pl
'httptiny' said it fetched '/tmp/META.yml', but it was not created at /home/kent/perl5/lib/perl5/File/Fetch.pm line 500.
File::Fetch::fetch('File::Fetch=HASH(0x191dfe0)', 'to', '/tmp') called at /tmp/ff.pl line 11
at /tmp/ff.pl line 11.
Running [/usr/bin/wget --quiet --passive-ftp --output-document /tmp/META.yml http://search.cpan.org/meta/IO-Tee-0.64/META.yml]...
'wget' said it fetched '/tmp/META.yml', but it was not created at /home/kent/perl5/lib/perl5/File/Fetch.pm line 500.
File::Fetch::fetch('File::Fetch=HASH(0x191dfe0)', 'to', '/tmp') called at /tmp/ff.pl line 11
at /tmp/ff.pl line 11.
Running [/usr/bin/curl -q --fail --location --output /tmp/META.yml http://search.cpan.org/meta/IO-Tee-0.64/META.yml]...
% Total % Received % Xferd Average Speed Time Time Time Current
Dload Upload Total Spent Left Speed
0 0 0 0 0 0 0 0 --:--:-- --:--:-- --:--:-- 0
'curl' said it fetched '/tmp/META.yml', but it was not created at /home/kent/perl5/lib/perl5/File/Fetch.pm line 500.
File::Fetch::fetch('File::Fetch=HASH(0x191dfe0)', 'to', '/tmp') called at /tmp/ff.pl line 11
at /tmp/ff.pl line 11.
'iosock' said it fetched '/tmp/META.yml', but it was not created at /home/kent/perl5/lib/perl5/File/Fetch.pm line 500.
File::Fetch::fetch('File::Fetch=HASH(0x191dfe0)', 'to', '/tmp') called at /tmp/ff.pl line 11
at /tmp/ff.pl line 11.
# ls /tmp/*.yml
/tmp/META.yml
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment