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
In reply to Re^2: XML::Twig Help
by shravnk
in thread XML::Twig Help
by shravnk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |