3

以下でこれを試しましたが、0ファイルとこのエラーが発生しました。C:/Perl/site/lib/XML/Twig.pm 行 3036 の未開封のファイルハンドル OUT に対する print()。

#!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 ;
4

1 に答える 1

5

おそらくあなたの問題は、ファイルハンドル参照ではなくファイルハンドルを渡したことです。

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

あなたのコードのためのいくつかの提案: 現代の perl では、open と indirect ファイルハンドルの 3 つの引数を使用する方が良いです:

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();
于 2010-08-31T20:57:14.637 に答える