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]

---

---

• Are you posting in the right place? Check out Where do I post X? to know for sure.
• Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:

  <code> <a> <b> <big> <blockquote> <br /> <dd> <dl> <dt> <em> <font> <h1> <h2> <h3> <h4> <h5> <h6> <hr /> <i> <li> <nbsp> <ol> <p> <small> <strike> <strong> <sub> <sup> <table> <td> <th> <tr> <tt> <u> <ul>

• Snippets of code should be wrapped in <code> tags not <pre> tags. In fact, <pre> tags should generally be avoided. If they must be used, extreme care should be taken to ensure that their contents do not have long lines (<70 chars), in order to prevent horizontal scrolling (and possible janitor intervention).
• Want more info? How to link or How to display code and escape characters are good places to start.