Beefy Boxes and Bandwidth Generously Provided by pair Networks
Welcome to the Monastery
 
PerlMonks  

Re: Replacing XML content

by doran (Deacon)
on Aug 18, 2000 at 03:12 UTC ( #28400=note: print w/replies, xml ) Need Help??


in reply to Replacing XML content

Okay, after posting the question above, I asked myself "Self, what about using a regex instead of some new-fangled module?"

So I came up with the following:

#!/usr/bin/perl -w use strict; my $oldfile ='./existing.xml'; my $updatefile ='./update.xml'; my $newfile ='./new.xml'; my ($old,$update); { # read in the two files local $/; open OLD, $oldfile or die "$!"; $old=<OLD>; close OLD; open UP, $updatefile or die "$!"; $update=<UP>; close UP; } $update =~ s/^.*(\<dbf>.*\<\/dbf>).*$/$1/sgi; my $up=$1; $old =~ s/\<dbf>.*\<\/dbf>/$up/sgi; open NEW, ">$newfile" or die "$!"; print NEW "$old"; close NEW; exit();
Which seems to work fine for what I'm doing (replacing everything between nodes).

Let me know if I did anything stupid here. Otherwise thanks for thinking good thoughts.

db

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others imbibing at the Monastery: (5)
As of 2019-12-11 23:38 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?