Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

Re: Replacing XML content

by mirod (Canon)
on Aug 30, 2000 at 21:12 UTC ( #30346=note: print w/replies, xml ) Need Help??

in reply to Replacing XML content

OK, it's really late for an answer here, but here is the XML::Twig script that does it. It's a little simpler than the regexp one and certainly a lot more robust.

#!/bin/perl -w
use strict;
use XML::Twig;

my( $main_file, $upd_file)= @ARGV;

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

my $upd_badge_id = $t_upd->root->next_elt( 'badge_id')->text;
my $upd_chore    = $t_upd->root->next_elt( 'jobs');

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

sub jobs
  { my( $t, $jobs)= @_;
    # just replace jobs if the previous badge_id is the right one
    if( $jobs->prev_elt( 'badge_id')->text eq $upd_badge_id)
      { $upd_chore->replace( $jobs); }
    $t->flush;    # print and flush memory so only one job is in there at once

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://30346]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others romping around the Monastery: (2)
As of 2020-10-25 16:47 GMT
Find Nodes?
    Voting Booth?
    My favourite web site is:

    Results (249 votes). Check out past polls.