$new := create new;
for { glob "folder/*.xml" } {
    open (.) ;
    if $new/new { # for the first file, copy the root as well
        cp shiporder replace $new/new ;
    } else {
        cp shiporder/shipto append $new/shiporder ;
    }
}
[download]

It's good that you already solved the part about finding all the files -- I'll use the OP code as a starting point (thanks for that), and reduce it down to just the essentials:

#!/usr/lib/perl
use strict;
use warnings;
use Carp;
use File::Find;
use File::Spec::Functions qw( canonpath );

if ( @ARGV == 0 ) {
    push @ARGV, "C:/file/dir";
    warn "Using default path $ARGV[0]\n  Usage: $0  path ...\n";
}

# open an output file whose name won't be found by File::Find
open( my $allxml, '>', "all_xml_contents.combined" )
    or die "can't open output xml file for writing: $!\n";
print $allxml '<?xml version="1.0" encoding="UTF-8"?>', "\n<all_xml_co
+ntents>\n";

find(
    sub {
        return unless ( /[.]xml\z/i and -f );
        extract_information();
        return;
    },
    @ARGV
);

print $allxml "</all_xml_contents>\n";

sub extract_information {
    my $path = $_;

    if ( open my $xmlin, '<', $path ) {
        local $_ = <$xmlin>;
        print $allxml $_ unless ( /<\?xml/ );
        while ( <$xmlin> ) {
            print $allxml $_;
        }
    }
    return;
}
[download]

Other things I changed in the code were:

• fixed how @ARGV is handled -- don't put "my" in front of that, and use it the way it was meant to be used.
• removed modules you didn't really need (Data::Dumper, XML::LibXML, File::Spec::Functions)
• removed variables and statements you didn't need (using $_ more)
• (update:) only use -f on items whose path/file names end in ".xml" (could probably skip -f altogether)

If your duplication problem is really just a matter of the (exact) same xml content showing up in multiple files (e.g. "foo1.xml" is a copy of "foo2.xml", or "blah1/foo.xml" is a copy of "blah2/foo.xml"), you can simply get md5 signatures of all the files first, sort by md5 values, and look for duplicates that way (files with identical content will have identical md5 values).

But if the duplication problem involves elements that make up parts of files, then a parser is the only way to go, and you'll need to know enough about the data to figure out which elements need to be checked for duplicate content. If you know which tags to look at, running a parser on the "all-combined" xml will make it easy to find and remove the duplicates.

Hi graff, Thanks for your reply I tried your code, It executing but it prints all xml files into one file, like this

<?xml version="1.0" encoding="UTF-8"?>
<shiporder xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<shipto>
    <name>johan</name>
    <address>Langgt 23</address>
     <------more info-------->
</shipto>
</shiporder>
<?xml version="1.0" encoding="UTF-8"?>
<shiporder xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<shipto>
    <name>benny</name>
    <address>galve 23</address>
     <------more info-------->
</shipto>
</shiporder>
<?xml version="1.0" encoding="UTF-8"?>
<shiporder xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<shipto>
    <name>kent</name>
    <address>vadrss 25</address>
      <------more info-------->
</shipto>
</shiporder>
[download]

How can I eliminate This tags

<?xml version="1.0" encoding="UTF-8"?>
<shiporder xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
[download]

It printing how many files is there that much times in final xml file.Can you tel me how could I eliminate this and print like this

<?xml version="1.0" encoding="UTF-8"?>
<shiporder xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<shipto>
    <name>johan</name>
    <address>Langgt 23</address>
     <------more info-------->
</shipto>

<shipto>
    <name>benny</name>
    <address>galve 23</address>
     <------more info-------->
</shipto>

<shipto>
    <name>kent</name>
    <address>vadrss 25</address>
      <------more info-------->
</shipto>
</shiporder>
[download]

because every XML file starts with same tag so we need to eliminate that one, final xml contains only one tag name.please can you help me

FIrst, I don't understand why the <?xml ...?> lines from all the input files are being included in the single output file -- when I use my code as posted, it removes those from each input. Either you're running something different from what I posted, or else there's something odd about the <?xml... lines in your data files.

As for what you really want, which is one <shiporder ...> element containing all the content of all the files (that is, combining the "shipto" elements from all the input files into one "shiporder"), that's a different plan from what I was suggesting, and it would be best to use a parser for that.

In fact, it seems like the OP code is really pretty close to what you want. Here's my version, with Digest::MD5 thrown in to eliminate duplicate "shipto" content:

#!/usr/lib/perl
use strict;
use warnings;
use Carp;
use File::Find;
use File::Spec::Functions qw( canonpath );
use XML::LibXML::Reader;
use Digest::MD5 'md5';

if ( @ARGV == 0 ) {
    push @ARGV, "C:/file/dir";
    warn "Using default path $ARGV[0]\n  Usage: $0  path ...\n";
}

# open an output file whose name won't be found by File::Find
open( my $allxml, '>', "all_shiporders.xml.combined" )
    or die "can't open output xml file for writing: $!\n";
print $allxml '<?xml version="1.0" encoding="UTF-8"?>',
    "\n<shiporder xmlns:xsi=\"http://www.w3.org/2001/XMLSchema-instanc
+e\">\n";

my %shipto_md5;

find(
    sub {
        return unless ( /[.]xml\z/i and -f );
        extract_information();
        return;
    },
    @ARGV
);

print $allxml "</shiporder>\n";

sub extract_information {
    my $path = $_;
    if ( my $reader = XML::LibXML::Reader->new( location => $path )) {
        while ( $reader->nextElement( 'shipto' )) {
            my $elem = $reader->readOuterXml();
            my $md5 = md5( $elem );
            print $allxml $reader->readOuterXml() unless ( $shipto_md5
+{$md5}++ );
        }
    }
    return;
}
[download]

That seems to work on a set of files such as the following, leaving out "j4.xml" because it's identical to "j2.xml":
Read more... (2 kB)
Here's the output -- the only difference between this and what you wanted is the absence vs. presence of extra line-feeds around the "shipto" tags, which is just a matter of cosmetics:

<?xml version="1.0" encoding="UTF-8"?>
<shiporder xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<shipto>
    <name>johan</name>
    <address>Langgt 23</address>
</shipto><shipto>
    <name>benny</name>
    <address>galve 23</address>
</shipto><shipto>
    <name>kent</name>
    <address>vadrss 25</address>
</shipto><shipto>
    <name>stewart</name>
    <address>vadrss 25</address>
</shipto></shiporder>
[download]

But How can I Add all XML files data into one xml file without repeating same data.

Keep track of duplicates, see uniq in perlfaq4

You are indeed picking an ambitious project for your first experience with the Perl language, but let me give you a website that you must bookmark:   http://search.cpan.org.

If you go to that site and type, “XML,” then ... oops! ... you get 5,000 hits.   So, here are a couple of searches to have a look at:

• XML::LibXML
• XML::Twig
• XSLT and XPath   (these are more-general search terms)

Your general approach will be to construct a new XML object representing your output file, and then to cycle through a directory (search e.g. for File::Find), open each one of the XML files you find there, and transfer nodes and subtrees from one to the other.

You may (erroneously, as it turns out) assume that you must write complicated code to navigate through the structure to see if things already exist, but you don’t:   that is what “XPath expressions” are for.   True XML difference-engines are also available.

Your strategy will partly depend on how large these files actually are.

You might also discover that there are altogether different ways to do it, such as XSLT, and existing engines such as Saxon.   In the desktop publishing world, DocBook is used to write documentation and books in an XML-based format, and books are actually assembled from hundreds or thousands of component parts using (a little hand-waving here ... what I am saying is not quite true...) no programming at all.   Because XML is now used so widely and in so many ways, the company of available tools is quite large and mature ... and, “Perl is there.”

Hi, Can any one provide some example scripts that add multiple XML files into One XML file

This is not a code writing service, nor is it a place to get your homework done for you. You may actually have to do some research on your own in order to learn something. You could investigate the options provided, or search the site for similar questions in the hope you'll find code to solve your problem. The latter is unwise IMHO:

#11952 In my experience that is a bad strategy, because the people who ask such questions are the ones who paste the answer into their program without understanding it and then complain that it `does not work'.

choroba already did Re: Multiple XML files from Directory to One XML file using perl.

Sure, its xsh and not perl, but so what :)