Me : XML::Filter::OTLML::IO.pm
my $outline = "/path/to/io.otlml"; my $output = IO::File->new("+<$outline"); my $writer = XML::SAX::Writer->new(Output=>$output); my $filter = XML::Filter::OTLML::IO->new(Handler=>$writer); my $parser = XML::SAX::ParserFactory->parser(Handler=>$filter); $parser->parse_uri($outline);
Still tracking down a bug where data at the end of the document sometimes (?!) gets printed twice. I might also "bless" the widget as a Handler -- this is the other part about SAX that I don't like: all these names! -- that writes to a file handle and to STDOUT so that it can be easily plugged into a pipeline. It will all have to wait until later, though since the "step away from the computer" police have arrived. I may release a tarball tomorrow, warts and all, and see what kind of feedback I get...