Hi All,
Open a directory and read all the files, based on certain criteria the an xml file should be generated. The following example is only for 2 files whereas i have multiple files to generate the xml. The xml structure should if there is no date or no pid it should not create any tags., where as it is creating for all the dates. The directory and the file structure:

/test/filename_12345_010107_ABC.txt
/test/filename_12345_010207_ABC.txt
/test/filename_12345_020107_zzz.txt
/test/filename_12345_020207_zzz.txt

/test/filename_55555_010107_ABC.txt
/test/filename_55555_010207_ABC.txt
/test/filename_55555_020107_ABC.txt
/test/filename_55555_020207_zzz.txt


The xml file should be:

<pt id="12345">
    <date id="010107">
        <abc id="abc" url="abc.html"></abc>
                <zzz id=""zzz" url="zzzz.html"></zzz>
    </date>
</pt>

<pt id="55555">
    <date id="010107">
        <abc id="abc" url="abc.html"></abc>
          </date>
</pt>
[download]

The code for that:

#!/usr/bin/perl


use XML::Simple;
use XML::Writer;
use IO::File;

my %pt;
my %dates;
my %abcs;

$dirname="test";
$output = new IO::File(">>out_file.xml");
$counter=1;
opendir(DIR, $dirname) || die "Error in opening dir $dirname\n";
while(($filename = readdir(DIR))){
  next if($filename eq '.' or $filename eq '..' );
  ($unwanted,$unwanted,$pid,$env,$date)=split("_",$filename);
  chomp($date,$pid,$env);
  $date=~ s/^\s+//g;
  $date==~ s/\s+$//g;
  $date=~ s/\.txt//g;
  $projects{$pid}=[] unless exists $projects{$pid};
  $dates{$date}=[] unless exists $dates{$date};
  $envs{$env}=[] unless exists $envs{$env};
  #push @{$projects{$pid}}, $date;
  #$push @{$dates{$date}}, $env;
}
foreach $pid(sort keys %projects){
 $writer=new XML::Writer(OUTPUT => $output);
 if($pid==""){
 }else{
   $writer->startTag("pt",id=>$pid);
   
   foreach $date(sort keys %dates){
    if($date==""){
    }else{
     $writer->startTag("date",id=>$date);
     foreach $env(sort keys %envs){
      print $env;
      if($env eq ""){
      }elsif($env eq "ABC"){
       $writer->startTag("sit",url=>$env);
       $writer->endTag();
      }elsif($env eq "ZZZ"){
       $writer->startTag("uat",url=>$env);
       $writer->endTag();
      }
   }
     $writer->endTag();
    }
      
        }
     $writer->endTag();
 }

 closedir(DIR);
[download]

The result of the xml file should be if there is no date existence, than it should not create any xml tags whereas the current code generates the xml for all dates which is wrong. The output which i am getting for the above code is

<pt id="12345">
<date id="010109">
<sit s_name="ABC"></sit>
<uat u_name="ZZZ"></uat>
</date>
<date id="020109">
<sit s_name="ABC"></sit>
<uat u_name="ZZZ"></uat>
</date>

</project>

<project id="55555">
<date id="010109">
<sit s_name="ABC"></sit>
<uat u_name="ZZZ"></uat>
</date>
</project>
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.