pls confirm if this is the right approach
chomp($var1 = qx($iwhome/bin/iwextattr -g TeamSite/Templating/PrimaryDocumentType $filePath));chomp($var2 = qx($iwhome/bin/iwextattr -g TeamSite/Templating/PrimaryDCR $filePath));(my $rel_path = "templatedata/$var1/data/$var2") =~ tr|\\|/|;
...(my $area = $filePath) =~ tr|\\|/|;$area =~ s|(/WORKAREA/[^/]+)/.*$|$1|;my $full_path = "$area/$rel_path";
thanks for all your help i am getting 80% of what is expected now ,i ll explain i am getting CORRECT output in case if file is generated from a dcr ,i am attaching a program for this ,right.txtnow suppose some times html file is not generated from a DCR ,so we have to consider that possibility ,when i try to incorporate that possibility within my code ,there is message "No Primary DCR found" in backendit is not working correctly ,i am attaching this file as wrong,i am also not getting any message in log file which i am generating for testing purposespls guide if you have any idea about this thingregards,mav
...foreach my $auto_file(@files) {my $auto_file =~ s/\\/\//g; chomp(my $auto_file); ...}
use warnings;
iwperl -w -c scriptname.ipl
"my" variable $auto_file masks earlier declaration in same scope at wrong.txt line 19.