Using Perl to Generate Code for SHJS Setup
Saturday, January 31st, 2009 11:59 am by
Cody 
Print this page
Saturday, January 31st, 2009 11:59 am by
Cody Print this page Using SHJS for syntax colouring requires includes for each language. Here’s a simple Perl script to generate these includes if you downloaded all the files to a directory and was too lazy to manually type them out
opendir(DIR, ".");
@jsFiles = grep(/\.js$/,readdir(DIR));
$output = '<script type="text/javascript" src="sh_main.js"></script>';
$output .= "\n";
foreach $file(@jsFiles)
{
$output .= '<script type="text/javascript"';
$output .= 'src="lang/'.$file.'"></script>'."\n";
}
$output .= '<link type="text/css" rel="stylesheet"';
$output .= 'href="css/sh_style.css">'."\n";
open(FILE, ">generate.txt") or die("Error");
print FILE $output;
Buy:Viagra Super Active+.Levitra.Viagra Soft Tabs.Soma.Cialis Soft Tabs.Viagra.Viagra Professional.Super Active ED Pack.Cialis Professional.Cialis Super Active+.Viagra Super Force.Tramadol.VPXL.Cialis.Zithromax.Maxaman.Propecia….
…
BUY FASHION. TOP BRANDS: GUCCI, DOLCE&GABBANA, BURBERRY, DIESEL, ICEBERG, ROBERTO CAVALLI, EMPORIO ARMANI, VERSACE…