BigPrism.com
Sitemap
Contact Us
Add Link
Home
Our Scripts
Online Tools
JavaScript Snippets
CGI Perl Snippets
Home
Friday, 04 July 2008
Main Menu
Home
Our Scripts
Online Tools
JavaScript Snippets
CGI Perl Snippets
Recommended Site
Want your link here?
On every page of our site?
For FREE?
Click Here!
Latest Items
URL shortening service PinURL.com
RegExp to validate URL syntax
Get file size over HTTP
BigPrism Dynamic Countdown Timer
ClickBank Product Finder
Popular Items
BigPrism Typo Helper
ClickBank Product Finder
BigPrism Dynamic Countdown Timer
BigPrism CoolTrack for RegNow
URL shortening service PinURL.com
Get file size over HTTP
This simple code uses LWP::UserAgent to retreive info about remotely hosted file over HTTP.
use LWP::UserAgent; sub GetFileSize{ my $url=shift; $ua = new LWP::UserAgent; $ua->agent("Mozilla/5.0"); my $req = new HTTP::Request 'HEAD' => $url; $req->header('Accept' => 'text/html'); $res = $ua->request($req); if ($res->is_success) { my $headers = $res->headers; return $headers; } return 0; } $link='http://www.domain.com/anyfile.zip'; $header = GetFileSize($link); print "File size: ".$header->content_length." bytes\n"; print "Last moified: ".localtime($header->last_modified)."\n"; exit;
Copyright © 2006 BigPrism.com All rights reserved.
|
Affiliates
|
ClickBank Directory
|
