Digitune [memo]

#!/usr/bin/env perl

my $count = 1;
my $output = 1;
my @footnote;

while (<>) {
    if (/\^\[/) {
        while (/\^\[/) {
            ($footnote[$count]) = (/\^\[([^\]]+)]/);
            $_ =~ s/\Q^[$footnote[$count]/[^$count/;
            $count = $count + 1;
        }
        print ;
    } elsif (/^$/) {
        print ;
        if ($output < $count) {
            while ($output < $count) {
                printf "[^%s]: %s\n", $output, $footnote[$output];
                $output = $output + 1;
            }
            print "\n";
        }
    } else {
        print ;
    }
}

First | Prev | 65 | 66 | 67 | 68 | 69 | Next | Last