.0::XML::Twig(3User Contributed Perl Documentatio.0::XML::Twig(3)

##</code><code>##

$twig->set_doctype(...)

##</code><code>##

Can't locate object method "set_doctype" via package "XML::Twig"

##</code><code>##

#!/usr/bin/perl

use strict;
use XML::Twig;


my $twig= new XML::Twig(TwigHandlers => { servlet => \&servletTag },
                                          comments => "keep"
                                          
                        );

  $twig->set_pretty_print( "indented");       # parse the twig
  $twig->parsefile( "web.xml");
  $twig->set_doctype("test", "test", "test", "test");
  $twig->print();

sub servletTag
{
  my $LOCALE = "es_US";

  my( $twig, $servlet)= @_;

  my $jspFileTag= $servlet->first_child("jsp-file");;

  if (defined($jspFileTag))
  {
    my $path = $jspFileTag->text();

    my $LOCALE_MOD = "/$LOCALE/";
    if ( $path =~ /$LOCALE_MOD/ )
    {
      $servlet->cut();
      return;
    }
  }
 }

##</code><code>##

<?xml version="1.0" encoding="ISO-8859-1"?>
<!DOCTYPE web-app
          PUBLIC "-//Sun Microsystems, Inc.//DTD Web Application 2.3//EN"
          "http://java.sun.com/dtd/web-app_2_3.dtd">

<!-- This is my comment -->

<web-app>
    <servlet>
    <servlet-name>Authenticate_en_US</servlet-name>
    <jsp-file>/vxml/en_US/type_0/entry/Authenticate.jsp</jsp-file>
    <load-on-startup>2</load-on-startup>
  </servlet>

  <servlet>
    <servlet-name>Authenticate_es_US</servlet-name>
    <jsp-file>/vxml/es_US/type_0/entry/Authenticate.jsp</jsp-file>
    <load-on-startup>2</load-on-startup>
  </servlet>

</web-app>