1 #!/usr/bin/env perl
2 
3 use v5.10;
4 use strict;
5 use warnings;
6 
7 my $page = shift or die 'missing page';
8 my @pages = ();
9 
10 while (<>) {
11 	chomp;
12 	@pages = (@pages, $_);
13 }
14 
15 say "<nav>";
16 my $did = 0;
17 for (@pages) {
18 	if (!$did) {
19 		$did = 1;
20 	} else {
21 		print "| ";
22 	}
23 
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 }
31 
32 say "</nav>";