Следующий скрипт на Perl сделает то, что вы хотите:
#!/usr/bin/perl
#
use strict;
use warnings;
use LWP::Simple;
sub downloadfile {
my ($url, $file) = @_;
getstore($url, $file);
}
sub getLinesMatching {
my ($file, $pattern) = @_;
open my $fh,'<',$file or die "Could not open $file: $!";
my @matching = grep /schemaLocation/,<$fh>;
my $size = @matching;
close $fh;
@matching;
}
sub processFile {
my ($url, $file) = @_;
downloadfile $url, $file;
my @lines = getLinesMatching $file,'schemaLocation';
if (@lines > 0) {
foreach my $line (@lines) {
$line =~ /schemaLocation=\"([^\"]*)/;
my ($url2) = $1;
print "$url2\n\n";
$url2 =~ /.*\/([^\/]*)/;
my ($file2) = $1;
print "$file2\n\n";
processFile ($url2, $file2);
}
}
}
my ($url) = @ARGV;
$url =~ /.*\/([^\/]*)/;
my ($base) = $1;
$base =~ s/\?/./;
print "Processing [$base] for [$url]\n\n";
processFile $url, $base;
В итоге, переданный параметр принимается как URL для извлечения в качестве первого файла. Затем он сканирует этот файл на наличие атрибутов schemaLocation и рекурсивно загружает каждый из этих файлов, пока все схемы не будут найдены или не будут найдены.
Чтобы вызвать скрипт:
perl thisscript.perl wsdlURL
Он попытается рекурсивно работать с файлом wsdl через каждый импортированный xsd и создать все файлы в текущем каталоге.