Some minor suggestions:
To this:if ($res->is_success) { my $headers = $res->headers; return $headers; }else{ $flag = 1; $error .= "Error retrieving file information at $url "; } return 0;
return $res->headers if $res->is_success; $flag = 1; $error .= "Error ..."; return 0;
To this, and remove one level of indentation.if(exists($extens{$ext})){
next unless exists $extens{$ext};
#if($newurl !~ /http::\/\/$/ig){ if($newurl !~ m#http:://$#i){
To this:print"\n\n\n$filename at $newurl\n"; print "File size: ".$header->content_length." bytes\n" unless $flag==1 +; print "Last modified: ".localtime($header->last_modified)."\n" unless +$flag==1;
print "\n\n\n$filename at $newurl\n", printf("File size: %d bytes\nLast modified: %s\n", $header->content_le +ngth, localtime($header->last_modified)) unless $flag == 1;
#print"\nExtensions to download (seperated by comma's): "; print"\nExtensions to download (separated by commas): ";
In reply to Re: RFC: Code testers/reviewers needed
by hbm
in thread RFC: Code testers/reviewers needed
by AI Cowboy
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |