30 lines
No EOL
590 B
Perl
30 lines
No EOL
590 B
Perl
#!/usr/bin/perl
|
|
|
|
use 5.010;
|
|
use strict;
|
|
use warnings;
|
|
use XML::Parser;
|
|
use XML::SimpleObject;
|
|
|
|
my( $filename ) = @ARGV;
|
|
|
|
open IN, '<', $filename or die;
|
|
my @contents = <IN>;
|
|
close IN;
|
|
|
|
@contents = grep !/^\<\?xml/igm, @contents;
|
|
|
|
open OUT, '>', $filename or die;
|
|
print OUT @contents;
|
|
close OUT;
|
|
|
|
#
|
|
#my $file = 'ipg150106.xml';
|
|
|
|
#my $parser = XML::Parser->new(ErrorContext => 2, Style => "Tree");
|
|
#my $xso = XML::SimpleObject->new( $parser->parsefile($file) );
|
|
|
|
#foreach my $patent ($xso->child('us-patent-grant')) {
|
|
#print $patent->child('invention-title')->{VALUE};
|
|
# print "\n";
|
|
#} |