User:Mcktimo/scripts/makeXML.pl

@files = <*>; $doc = < EOF
 * 1) !/usr/bin/perl

foreach $file (@files) {	$doc.=makeXML($file); } $doc.=" \n"; print $doc; sub makeXML {	$fname = shift @_; $template=<3

@@page@@ EOF $/=undef; open FILE, "$fname" or die; $page=; $template=~s/@@title@@/$fname/; $page=~s/&/&amp;/g; $page=~s/\/&gt;/g;

$page.="\n---\nBased on: [$fname at wikispaces]\n"; $template=~s/@@page@@/$page/; return $template; };
 * 1) $page=~s/\/\/g;