How Iterate through all Datatypes and dcr's

anilapr24

Hi All,
I am new to PERL.

My requirement is, i need to set extended atributes for al the DCR's of each data types in a Branch.

Any sample code to traverse through all DCR's in 'data' folder of each datatype.

datatypes list attached.

Regards,
Anil

vaibhav2288

Hi All, I am new to PERL. My requirement is, i need to set extended atributes for al the DCR's of each data types in a Branch. Any sample code to traverse through all DCR's in 'data' folder of each datatype. datatypes list attached. Regards, Anil

Below is the code to traverse through all the sub folders inside the "templatedata" folder.

For this example, I am setting the language as extended attribute for all the DCR's.

use strict;
use warnings;
use File::Find;

(my $iwhome = TeamSite::Config::iwgethome())  =~ tr|\\|/|;
my $folderPath= "Y:/default/main/Sub-Branch/WORKAREA/Inetpub/templatedata";

&File::Find::find(\&getFiles,$folderPath);

sub getFiles 
{
 if ( (-f $File::Find::name) && ($File::Find::name =~ /$folderPath/) )
 {
  my $filename= $File::Find::name;
  my $setLanguage= `$iwhome/bin/iwextattr -s TeamSite/Metadata/language=English $filename 2>&1`;
 }
}

It may help.

Thanks