Skip to content

Instantly share code, notes, and snippets.

@colomon

colomon/gist:4512156

Created January 11, 2013 16:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save colomon/4512156 to your computer and use it in GitHub Desktop.
Save colomon/4512156 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
say '<html lang="en">';
say '<body>';
for lines() {
my $line = $_.subst(/"#" (\d+) (\s* "=")?/, -> $/ { $1 ?? qq[<A name="line{ $0 }">#{ $0 }</A>=]
!! qq[<A href="#line{ $0 }">#{ $0 }</A>] }, :g);
say $line, "<br>";
}
say '</body>';
say '</html>';
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment