To replace a number with strings in an XML file using a Perl script

Question

I have an XML file. I need to replace the digits in comment="18" with comment="my string" where my string is from my @array ($array[18] = my string).

 <rule ccType="inst" comment="18" domain="icc" entityName="thens"  entityType="toggle" excTime="1605163966" name="exclude" reviewer="hpanjali" user="1" vscope="default"></rule>

This is what I have tried.

while (my $line = <FH>) {
      chomp $line;
      $line =~ s/comment="(\d+)"/comment="$values[$1]"/ig;
      #print "$line \n";
      print FH1 $line, "\n";
}

What have you tried? What problems are you having? Please show us your code. — Dave Cross
– Dave Cross, Commented Feb 1, 2021 at 11:40

Peter Mortensen · Accepted Answer · 2021-10-26 23:48:04Z

5

Here is an example using XML::LibXML:

use strict;
use warnings;
use XML::LibXML;

my $fn = 'test.xml';
my @array = map { "string$_" } 0..20;
my $doc = XML::LibXML->load_xml(location => $fn);
for my $node ($doc->findnodes('//rule')) {
    my $idx = $node->getAttribute('comment');
    $node->setAttribute('comment', $array[$idx]);
}
print $doc->toString();

edited Oct 26, 2021 at 23:48

Peter Mortensen

31.4k22 gold badges110 silver badges134 bronze badges

answered Feb 1, 2021 at 8:31

Håkon Hægland

40.9k22 gold badges96 silver badges210 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

nandeesh v Over a year ago

Thanks. I am no expert in perl. I know simple perl. I have tried this while (my $line = <FH>) { chomp $line; $line =~ s/comment="(\d+)"/comment="$values[$1]"/ig; # print "$line \n"; print FH1 $line, "\n"; } and thought that there might be efficient ways to do this with XML perl module hence I have asked this question. Thanks a lot for your answer.

brian d foy · Accepted Answer · 2021-02-01 15:41:42Z

4

Here's an XML::Twig example. It's basically the same idea as the XML::LibXML example done in a different way with a different tool:

use XML::Twig;

my $xml =
qq(<rule ccType="inst" comment="18"></rule>);

my @array;
$array[18] = 'my string';

my $twig = XML::Twig->new(
    twig_handlers => {
        rule => \&update_comment,
        },
    );
$twig->parse( $xml );
$twig->print;

sub update_comment {
    my( $t, $e ) = @_;
    my $n = $e->{att}{comment};
    $e->set_att( comment => $array[$n] );
    }

answered Feb 1, 2021 at 15:41

brian d foy

134k31 gold badges214 silver badges613 bronze badges

1 Comment

nandeesh v Over a year ago

Thanks. I am no expert in perl. I know simple perl. I have tried this while (my $line = <FH>) { chomp $line; $line =~ s/comment="(\d+)"/comment="$values[$1]"/ig; # print "$line \n"; print FH1 $line, "\n"; } and thought that there might be efficient ways to do this with XML perl module hence I have asked this question. Thanks a lot for your answer.

Collectives™ on Stack Overflow

To replace a number with strings in an XML file using a Perl script

2 Answers 2

1 Comment

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

1 Comment

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related