annotate interps/c-intercal/doc/fixtoc.pl @ 12062:5e74c372b097
draft
<fizzie> sled /hackenv/bin/makelist//s|$HACKENV/$HACKENV/|$HACKENV/|
| author |
HackEso <hackeso@esolangs.org> |
| date |
Sat, 16 Nov 2019 21:46:09 +0000 |
| parents |
859f9b4339e6 |
| children |
|
| rev |
line source |
|
996
|
1 #!/bin/perl -w
|
|
|
2
|
|
|
3 # Deindent and delink part headings in the TOC, and remove the initial
|
|
|
4 # H2 entry.
|
|
|
5
|
|
|
6 my $f=1;
|
|
|
7
|
|
|
8 while(<>)
|
|
|
9 {
|
|
|
10 $f and /<ul>/ and do{$f=0; next;};
|
|
|
11 /^<li><a[^>]*>C-INTERCAL / and next;
|
|
|
12 s%^<li><a[^>]*>(PART .*?)</a>%</ul><h3>$1</h3><ul>%;
|
|
|
13 print;
|
|
|
14 last if $_ eq "</div>\n";
|
|
|
15 }
|
|
|
16 while(<>) {print;}
|
