#!/kek/local/bin/perl # # for ($i=1; $i<=6; $i++) { `cp node$i.html node$i.html.org`; `Restructure.pl node$i.html.org > node$i.html`; # $command = "Restructure.pl node$i.html > temp$i.html\n"; # system($command); } `cp toolkitDeveloper.html toolkitDeveloper.html.org`; `Restructure.pl toolkitDeveloper.html.org > toolkitDeveloper.html`; `cp index.html index.html.org`; `rm index.html`; `cp toolkitDeveloper.html index.html`;