#!/usr/bin/perl
# loop through all files on command line
$found_head_1 = 0; # parsing a , haven't found
$found_title = 0; # parsing a , haven't found
$level_1 = 0; # have commenced a set of level 1 heads
$level_2 = 0; # have done a level 2 head
sub reset_head {
# reset lower levels, terminating list if needed
if ($level_2) {
print "\n";
}
if ($level_1) {
print "\n";
}
$level_1 = 0;
$level_2 = 0;
}
sub preamble {
print "\n\n";
print " Topics in OS lectures \n";
print "\n\n\n";
print " Topics in OS lectures
\n";
}
do preamble();
while ($_ = ) {
# this part replaces patterns ... with
# ...
if (/(.*)<\/title>/) {
do reset_head();
print "\n\n<h2>", $1, "</h2>\n\n";
next;
}
if (/<title>(.*)/) {
do reset_head();
print "\n\n<h2>", $1;
$found_title = 1;
next;
}
if ($found_title && /<\/title>/) {
print "</h2>\n\n";
$found_title = 0;
next;
}
if ($found_title) {
print;
}
# handle <h1> ... </h1>
# turn it into <li> ...
# add <ul> if this is the first of these
if (/<[Hh]1>(.*)<\/[Hh]1>/) {
if ( ! $level_1) {
print "<ul>";
}
print "<li>", $1, "\n";
$level_1 = 1;
next;
}
if (/<[Hh]1>(.*)/) {
print "<li>", $1, "\n";
$found_head_1 = 1;
$level_1 = 1;
next;
}
if ($found_head_1 && /<\/[Hh]1>/) {
$found_head_1 = 0;
next;
}
if ($found_head_1) {
print;
}
}