Perl script for checking the validity of URLs referenced in Markdown.

perl-ping.pl

#!/usr/bin/env perl
# Check that URLs used in Markdown files actually point somewhere.

use strict;
use warnings;

use LWP::Simple;
use List::MoreUtils qw(uniq);
use Data::Printer;

my @to_check;

while (<>) {
    push @to_check, $_;
};

my @urls;
foreach my $line (@to_check) {
    if ($line =~ /\((http[^\) ]*)\)/) {
        push @urls, $1;
    };
};

@urls = uniq @urls;
@urls = sort @urls;
foreach my $url (@urls) {
    print "Checking URL: $url\n";
    unless (head($url)) {
        print "Failed...\n";
    };
};