Am new to perl and the monastery. Am looking to download a zip file - the download itself happens, but I am unable to unzip the file after download. I suspect I'm doing something wrong with the way I'm downloading the zip file (encoding et al). The error I get when unzipping it - "254 extra bytes at beginning or within zip file". Would appreciate some guidance.
use LWP::UserAgent; my $nseurl = "https://nse-india.com/content/historical/EQUITIES/2017 +/AUG/cm14AUG2017bhav.csv.zip"; my $file = "08SEP2017bhav.csv.zip"; my @rows; my $ua = LWP::UserAgent->new; $ua->agent("MyApp/0.1 "); my $req = HTTP::Request->new(POST => $nseurl); $req->content_type('X-UA-Compatible" content="IE=8'); $req->content('text/csv; charset=utf-8'); my $res = $ua->request($req); @rows = $res->content; open ( my $fhwrite, ">>", "$file") or die "$file: $!"; if (defined $fhwrite) { print $fhwrite @rows; close ( $fhwrite ); }
In reply to LWP::UserAgent downloading zip files by Gtforce
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |