Search and replace specific code in xml using perl

Question

I am new to Perl, I have a task to replace or remove comment part (<!--) in multiple XML files, after replace I need to move those multiple XML files to other directories. I am illustrating below my D:\folder1\ having many xml files a.xml, b.xml, c.xml so on, after replace I need to move all the files from folder1 to D:\folder2\.

I tried one file by replacing - and @@@ but I don't have idea to remove comment line () from xml files in directory.

My Perl code follow below

#!/usr/bin/perl

use strict;
use warnings;

my $tag = 'SHORT_DESC';

open my $input_file, '<', 'test.xml' or die $!;
open my $output_file, '>', 'test_out.xml' or die $!;

my $input;
{
  local $/;               #Set record separator to undefined.
  $input = <$input_file>; #This allows the whole input file to be read at once.
}

$input =~ s/&/@@@/g;
$input =~ s/^- (?=<)//gm;
$input =~ s/<header[^>]*>\K\s*<header[^>]*>//gis;
close $input_file or die $!;
print {$output_file} $input;
close $output_file or die $!;

And my XML is

<?xml version = '1.0' encoding = 'UTF-8'?>
<!-- Order details-->
<order>
<Names>
<!-- Names-->
<content>This is dummy content</content>
</Names>
</order>

Are you typing XML comments incorrectly for a specific reason? Why the reference to @@@? Also, my $input = do { local $/; <$input_file> }; . Also, you are not reading using UTF-8 layer. — Sinan Ünür
– Sinan Ünür, Commented May 20, 2015 at 15:43
Are you claiming comments in the files literally use <\!--? In that case, they are not XML. — Sinan Ünür
– Sinan Ünür, Commented May 20, 2015 at 23:11
Sinan my requirement is to remove that comment line from the file, its purely xml file, example purpose I changed the code. — Nachiappan R
– Nachiappan R, Commented May 21, 2015 at 1:14

choroba · Accepted Answer · 2015-05-20 15:47:54Z

3

Use a proper XML handling module. I like XML::XSH2, a wrapper around XML::LibXML:

#! /usr/bin/perl
use warnings;
use strict;

use XML::XSH2;   # To handle XML.
use Path::Tiny;  # To move files around.

my ($source, $target) = @ARGV;

for my $file (path($source)->children(qr/\.xml$/)) {
    xsh "open $file ; delete //comment() ; save";
    path($file)->copy($target);
    path($file)->remove;
}

edited May 20, 2015 at 15:47

answered May 20, 2015 at 15:39

choroba

245k27 gold badges221 silver badges304 bronze badges

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

6 Comments

Nachiappan R Over a year ago

Thanks, could you guide me where I to include the source and destination folder path, how to include xsh2 module to the program, it is possible other method can implement my task.

choroba Over a year ago

@NachiappanR: The source and target directories should be specified as parameters to the script.

Nachiappan R Over a year ago

Thanks choroba, can you say did I need to include xsh2 module, if so please tell me the procedure.

Nachiappan R Over a year ago

Even I install the xsh2 using ppm install xsh2 in command prompt but I am facing the error Can't locate XML/XSH2.pm in @INC (you may need to install the XML::XSH2 module) (@INC contains: C:/Perl/site/lib C:/Perl/lib .) at searcn.pl line 5. BEGIN failed--compilation aborted at hello.pl line 5.

Nachiappan R Over a year ago

I hope the code will work, but only problem is how to include the module XSH2, is any other method to include the same task?

|

Collectives™ on Stack Overflow

Search and replace specific code in xml using perl

1 Answer 1

6 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

6 Comments

Your Answer

Sign up or log in

Post as a guest

Related