allXSL.pl
- use Cwd;
- use File::Path;
- use File::Basename;
- sub directory
- {
- my (@list, $item);
- opendir DIR,".";
- @list = readdir DIR;
- #remove . and ..
- shift(@list);
- shift(@list);
-
- foreach $item (@list)
- {
- if (-f $item) {file($item);}
- if (-d $item) {
- chdir($item);
- directory($item);
- chdir ("..");
- }
- }
- }
- sub file
- {
- if($_[0]=~/\.xml/) {
- print "\n$_[0]";
- system "xsl $_[0] ALL NO $compare";
- }
- }
- if ($ARGV[0] eq "REFRESH") {$compare = 'NO';}
- else {$compare = 'COMPARE';}
- directory();
- system "printxsl.bat";
- system "printdtd.bat";
- system "printperl.bat";