Match URL

match-url.pl

#!/usr/bin/env perl
# Adopted from https://github.com/atom/language-hyperlink
use strict;
use warnings;
use v5.14;

my $matchURL = qr~ \b
	# Protocol
	( https?
	| s?ftp
	| ftps
	| file
	| smb
	| git
	| ssh
	| rsync
	| afp
	| nfs
	| (?:x-)?man(?:-page)?
	| gopher
	| txmt
	| issue
	| atom
	) ://
	
	# Path specifier
	(?:
		(?! \#\w*\#)
		(?: [-:\@\w.,\~\%+_/?=\&\#;|!])
	)+
	
	# Don't include trailing punctuation
	(?<![-.,?:\#;])
~aix;
my $matchEmail = qr~ \b
	mailto: (?:
		(?! \#\w*\#)
		(?: [-:\@\w.,\~\%+_/?=\&\#;|!])
	)+
	(?<![-.,?:\#;])
~aix;
$matchURL = qr~$matchURL|$matchEmail~;



# Usage:
my $input = <<EOF;
Do this and go to https://some.site/file.html?okay=1.
http://deno.land?
mailto:this\@guy.com.
EOF

-t 1
	? $input =~ s/$matchURL/\e[4m$&\e[0m/g
	: $input =~ s/$matchURL/<a href="$&">$&<\/a>/g;
say $input;