printStylesheets.pl

  1. $STYLESHEETS_HOME='C:/Zvon/Stylesheets/xslStylesheets/Zvon';
  2. $TARGET_HOME='C:/Zvon/ZvonHTML/Stylesheets/xslStylesheets/Zvon';
  3. opendir DIR, $STYLESHEETS_HOME;
  4. @list = readdir DIR;
  5. use File::Basename;
  6. use File::Path;
  7. chdir($STYLESHEETS_HOME);
  8. foreach $xslFile (@list)
  9. {
  10. $htmlFile = "$TARGET_HOME/$xslFile";
  11. $htmlFile =~ s/\.xsl/\.html/g;
  12. $htmlDir = dirname($htmlFile);
  13. if(!(-d $htmlDir)) {mkpath($htmlDir,true);};
  14. if(-f $xslFile)
  15. {
  16. open XSL_IN, $xslFile;
  17. if (!(open XSL_OUT, ">$htmlFile")){print "\n$htmlFile not created";};
  18. read XSL_IN,$tmp, 1000000;
  19. close XSL_IN;
  20. $tmp=~s/</</g ;
  21. $tmp=~s/>/>/g;
  22. $tmp=~s/\n/<LI>/g;
  23. $tmp=~s/href="(\S*)\.xsl"/href="<A href="$1\.html"> $1\.xsl<\/A>"/g;
  24. print XSL_OUT "<HTML><HEAD><META http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\"> <TITLE>$xslFile</TITLE></HEAD><BODY><H2>$xslFile</H2><OL><LI>$tmp</OL></BODY></HTML>";
  25. close XSL_OUT;
  26. }
  27. }