Help for this page

Select Code to Download


  1. or download this
    <EXPORT>
  <OUTPUT>2008-01-01</OUTPUT>
...
  <RECORD>.....</RECORD>
  ....
</EXPORT>
  2. or download this
    sub record_check {
  my( $nhf, $record)= @_; 
...
my $nhf= XML::Twig->new( twig_roots => { RECORD => 1, },twig_handlers 
+=> { RECORD => \&record_check,}, );
$nhf->parsefile( $input_file );
$nhf->purge;
  3. or download this
    <RECORD>...........</RECORD>
<RECORD>...........</RECORD>
....
  4. or download this
    <EXPORT><RECORD>............</RECORD>
<RECORD>...........</RECORD>
....