Blob
1 #!/usr/bin/env perl3 use v5.10;4 use strict;5 use warnings;7 my $page = shift or die 'missing page';8 my @pages = ();10 while (<>) {11 chomp;12 @pages = (@pages, $_);13 }15 say "<nav>";16 my $did = 0;17 for (@pages) {18 if (!$did) {19 $did = 1;20 } else {21 print "| ";22 }24 my ($href, $text) = m/^([^\s]*)\s*(.*)$/;25 if ($href eq $page) {26 print "<strong>$text</strong> ";27 } else {28 print "<a href='$href'>$text</a> ";29 }30 }32 say "</nav>";