#!/usr/bin/perl -w
$DEBUG = 0;
@array = ls *.php | grep -v "_content.php";
for ($i = 0; $i <= $#array; $i++) {
@src = split(/./ , "$array[$i]");
$html = "$src[0]" . '.html';
if ($DEBUG) { print "Filename: [$array[$i]] HTML: [$html]\n"; }
if ($DEBUG) { print "\$var = $var"; }
$var = /usr/bin/php -q $array[$i];
open(H, ">$html") || die "cannot open file handle for $html";
print H "$var";
close(H);
}
HERES ONE IN PERL 😃