in reply to Re: XML::Twig Help
in thread XML::Twig Help
roboticus-
Updated code is the following:
#!/usr/bin/perl print "Enter an input file, space, and output file\n"; use strict; use warnings; chomp(my $enter = <STDIN>); $_ = $enter; unless (m#.+\.nml .+\.xml#) {print "Unreadable input"; } my @fields = split(/ /, $enter, 9999); use XML::Twig; open (FILE, $fields[0]) or die "Can't open file"; my $file = <FILE>; my $t= XML::Twig->new( twig_roots => { "djn-geo" => 1}); $t->parsefile($file); open(STDOUT, ">$fields[1]"); $t->print;
Still not sure why the XML::Twig line isn't working, I copied it verbatim from an example, and just changed the tag
Thanks alot,
shravnk
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: XML::Twig Help
by roboticus (Chancellor) on Jul 06, 2010 at 16:28 UTC |