#!/usr/bin/perl use warnings; use strict; use HTTP::Request::Common qw(POST); use LWP::UserAgent; my $url ='http://zentara.zentara.net/~zentara/cgi-bin/uploadz'; my $dir = shift || "."; opendir DIR, $dir or die "can't ls $dir: $!"; my @files = grep { $_ ne "." and $_ ne ".." } readdir DIR; foreach my $file (@files){ my $ua = new LWP::UserAgent; my $req = POST $url, Content_Type => 'multipart/form-data', Content => [ file => [$file] ]; my $res = $ua->request($req); if ($res->is_success){print $res->as_string; }else{print $res->status_line; } } exit 0;
In reply to Re: Uploading Multiple Files
by zentara
in thread Uploading Multiple Files
by cal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |