Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/usr/bin/env perl
- use strict;
- use warnings;
- use WWW::Mechanize;
- use HTTP::Cookies;
- my $url = "http://sampleurl.com";
- my $dir = 'C:\pl';
- my $mech = WWW::Mechanize->new();
- $mech->cookie_jar(HTTP::Cookies->new());
- $mech ->credentials("sampleurl.com:80", "sampleurl.com", "username", "password");
- $mech->get($url);
- my $res = $mech->res();
- if($res->is_success){
- my $filename = $res->filename();
- print $filename;
- $mech->save_content( $dir.'\'.$filename, binmode => ':raw', decoded_by_headers => 1 );
- print $mech->status;
- }else{
- print "Error";
- }
- exit 0;
- use MIME::Types qw(by_mediatype);
- my $filename = $r->filename();
- if(!$filename) { $filename = 'untitled'; }
- if($filename !~ /.[a-zA-Z0-9]{1,4}$/) {
- my $type = $res->header('Content-Type');
- my $ext = 'txt';
- if($type) {
- my @types = by_mediatype($type);
- if($#types > -1) {
- $ext = $types[0][0];
- }
- }
- $filename .= '.' . $ext;
- }
- print $filename;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement