annotate interps/c-intercal/doc/fixtoc.pl @ 2307:9287c6b64595
<Jafet> (echo \'#!/bin/sh\'; echo \'cd /var/irclogs/_esoteric; cat $(ls ????-??-??.txt | tail -1) | sed \'\\\'\'s/[^>]*>\'\\\'\' | grep "^\\`" | tail -1 // #Best cheating quine ever?\') > bin/quine2
| author |
HackBot |
| date |
Fri, 01 Mar 2013 01:40:17 +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;}
|
