The djn-geo tag is in there, for example:
<djn-geo>
<\c>R/ALT\<\/c>
<\c>R/ARA\<\/c>
</djn-geo>
My code now reads:
#!/usr/bin/perl
use strict;
use warnings;
chomp(my $enter = <STDIN>);
my @fields = split(/ /, $enter, 9999);
use XML::Twig;
open (FILE, $fields[1]);
my $file = <FILE>;
my $t= XML::Twig->new( twig_roots => { 'djn-geo' => 1});
$t->parsefile($file);
open(STDOUT, ">$fields[2]");
$t->print;
And I get the error:
Unsuccessful stat on filename containing newline at C:/Perl/site/lib/XML/Twig.pm
line 684, <FILE> line 1.
Couldn't open version="1.0" encoding="ISO-8859-1"?>
:
Invalid argument at C:\Documents and Settings\odeab\My Documents\Exec_Extract\tw
iggie.pl line 10
at C:\Documents and Settings\odeab\My Documents\Exec_Extract\twiggie.pl line 10
|