如何使用 XML Twig 将修改后的树保存到磁盘中

Question

尝试了下面的方法，但我得到了 0 文件和此错误。 print() 在 C:/Perl/site/lib/XML/Twig.pm 第 3036 行的未打开文件句柄 OUT 上。

#!c:\perl\bin\perl.exe
use strict;
use XML::Twig;

my $upd_file = "updev.xml" ;
my $main_file = "main.xml" ;

# get the info we need by loading the update file
my $t_upd= new XML::Twig();

$t_upd->parsefile( $upd_file);

my $upd_dev_id = $t_upd->root->next_elt( 'DEVNUM')->text;
my $upd_dev    = $t_upd->root->next_elt( 'DEVS');
my $upd_seg    = $t_upd->root ;

# now process the main file
my $t= new XML::Twig( TwigHandlers => { DEVS => \&DEVS, },
              PrettyPrint => 'indented',
            );
$t->parsefile( $main_file);
$t->flush;           # don't forget or the last closing tags won't be printed

open( OUT, ">$main_file") or die "cannot open out file main_file:$!";

sub DEVS
  { my( $t, $DEVS)= @_;
    # just replace devs if the previous dev_id is the right one
    if( $DEVS->prev_elt( 'DEVNUM')->text eq $upd_dev_id) {
      $upd_dev->replace($DEVS);    
    }
     $t->flush(\*OUT) ;  # print and flush memory so only one dev is in there at once

  }

close OUT ;

Answer 1

您的问题可能是您传递了文件句柄而不是文件句柄引用。

$t->flush(\*OUT) # look at the '\'

对您的代码的一些建议：在现代 Perl 中，最好使用三个参数打开和间接文件句柄：

open (my $fh_out, '>', $out_file) or die "unable to open '$out_file' for writing: $!";

$twig->print($fh_out); # this prints to the filehandle

另一种打印方式是使用 $twig->sprint 对树进行字符串化，并像往常一样打印到文件句柄

 print {$fh_out} $twig->sprint();