$i = 1;
sub open_next {
open OUT, ">tcl-$i.html" or die "opening tcl-$i.html: $!";
$prev = $i-1;
$next = $i+1;
print OUT <<"EOT";
Intro To Tcl, Slide $i
Previous
Next
EOT
}
sub close_this {
print OUT <<"EOT";
EOT
close OUT or die "closing tcl-$i.html: $!";
$i++;
}
$_ = <> until /^) {
if (/
\s*
\s*
/i) {
close_this();
open_next();
} elsif (m::i) {
last;
} else {
print OUT;
}
}
close_this();