#!/usr/bin/perl (@files)=<*.pl>; foreach my $file(@files){ my ($filestart)=$file=~/(.*?)\./; open INPUT, $file; my $source; while (){ $source.=$_; } close INPUT; $program=$source; $source=~s/</g; $source=~s/>/>/g; open FILE, ">$filestart.html"; *STDOUT=*FILE; print "
\n"; print "";
print $source;
print "
";
print "Program results:";
print ""; eval $program; print ""; print ""; close FILE; }