#!/usr/bin/perl -w
use strict;
use HTTP::Request::Common;
use LWP::UserAgent;
my ( $f1, $f2 ) = @ARGV;
usage() unless defined $f1 and -f $f1
and defined $f2 and -f $f2;
my $ua = LWP::UserAgent-＞new;
my $uri = "http://my.host.tld/cgi-bin/semdiff.cgi";
my $req = HTTP::Request::Common::POST( $uri,
Content_Type =＞ 'form-data',
Content =＞ [
file1 =＞ [ $f1 ],
file2 =＞ [ $f2 ],
passthru =＞ 1,
semdiff_result =＞ 1,
]
);
my $result = $ua-＞request( $req );
if ( $result-＞is_success ) {
print $result-＞content;
}
else {
warn "Request Failure: " . $result-＞message . "\n";
}
sub usage {
die "Usage:\nperl $0 file1.xml file2.xml \n";
}
|
