printStylesheets.pl
- $STYLESHEETS_HOME='C:/Zvon/Stylesheets/xslStylesheets/Zvon';
- $TARGET_HOME='C:/Zvon/ZvonHTML/Stylesheets/xslStylesheets/Zvon';
- opendir DIR, $STYLESHEETS_HOME;
- @list = readdir DIR;
- use File::Basename;
- use File::Path;
- chdir($STYLESHEETS_HOME);
- foreach $xslFile (@list)
- {
- $htmlFile = "$TARGET_HOME/$xslFile";
- $htmlFile =~ s/\.xsl/\.html/g;
- $htmlDir = dirname($htmlFile);
- if(!(-d $htmlDir)) {mkpath($htmlDir,true);};
- if(-f $xslFile)
- {
- open XSL_IN, $xslFile;
- if (!(open XSL_OUT, ">$htmlFile")){print "\n$htmlFile not created";};
- read XSL_IN,$tmp, 1000000;
- close XSL_IN;
-
- $tmp=~s/</</g ;
- $tmp=~s/>/>/g;
- $tmp=~s/\n/<LI>/g;
- $tmp=~s/href="(\S*)\.xsl"/href="<A href="$1\.html"> $1\.xsl<\/A>"/g;
-
- 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>";
- close XSL_OUT;
- }
- }