From 90a1fb391c29c1165baab5021a167d42e841534a Mon Sep 17 00:00:00 2001
From: Dennis Brentjes <d.brentjes@gmail.com>
Date: Thu, 10 Sep 2015 23:01:37 +0200
Subject: initial commit.

---
 check.pl | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 check.pl

(limited to 'check.pl')

diff --git a/check.pl b/check.pl
new file mode 100755
index 0000000..02fa8fb
--- /dev/null
+++ b/check.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+my $file = 'data';
+open my $info, $file or die "Could not open $file: $!";
+
+my @list;
+
+while( my $line = <$info>)  {
+	chomp $line;
+	if(! -e "images/$line.png") {
+		print "Found missing: $line\n";	
+	} 
+	if ($line ~~ @list)
+	{
+		print "Found duplicate: $line\n"
+	}
+	push(@list, $line)
+}
+
+close $info;
-- 
cgit v1.2.3-70-g09d2