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 $outtype = shift or die 'missing output type';9 my @pages = ();11 while (<>) {12 chomp;13 @pages = (@pages, $_);14 }16 my $did = 0;17 for (@pages) {18 my ($href, $text) = m/^([^\s]*)\s*(.*)$/;20 if ($outtype eq 'gemini') {21 if ($href ne $page) {22 say "=> $href $text";23 }24 } else {25 if (!$did) {26 $did = 1;27 } else {28 print "| ";29 }31 if ($href eq $page) {32 print "$text ";33 } else {34 print "<a href='$href'>$text</a> ";35 }36 }37 }39 say "";