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 my $did = 0;16 for (@pages) {17 if (!$did) {18 $did = 1;19 } else {20 print "| ";21 }23 my ($href, $text) = m/^([^\s]*)\s*(.*)$/;24 if ($href eq $page) {25 print "<strong>$text</strong> ";26 } else {27 print "<a href='$href'>$text</a> ";28 }29 }31 say "";