/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>

##</code><code>##


#!/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);

##</code><code>##

<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>