More work on the check_files script

Very much a work in progress, but I'm out of time for the day.

#59

scripts/check_files.pl

@@ -2,34 +2,62 @@
 
 use strict;
 use warnings;
-
+use 5.10.1;
 use autodie;
 
 use YAML qw/ LoadFile /;
 use Text::CSV;
+use Data::Dumper;
 
 my $yamlfile = "../Perl_Companies.yaml";
 my $csvfile = "../Perl_Companies.csv";
 my $mdfile = "../PerlCompanies.md";
 
-my $csvout = Text::CSV->new({
-    binary              => 1,
-    auto_diag => 1,
-    allow_whitespace => 1,
-    always_quote => 1,
-    eol => "\n",
-    });
-
+say "Loading $yamlfile entries";
 my @yaml = sort { lc $a->{name} cmp lc $b->{name} }
                      @{ LoadFile( $yamlfile ) };
-
+say "Loading $csvfile entries";
+# TODO
 my @csv = [];
 
+say "Loading $mdfile entries";
+# TODO
 my @md = [];
 
-print "Number of entries in each file type:\n";
-print "YAML: ". scalar(@yaml) . "\n";
-print "CSV: " . scalar(@csv) . "\n";
-print "Markdown: " . scalar(@md) . "\n";
+say "Number of entries in each file type:";
+say "\tYAML: ". scalar(@yaml);
+say "\tCSV: " . scalar(@csv);
+say "\tMarkdown: " . scalar(@md);
+
+if ( (scalar(@yaml) != scalar(@csv)) ||
+     (scalar(@yaml) != scalar(@md))  ||
+     (scalar(@csv) != scalar(@md))
+   )
+{
+  say "The files do not match. Starting a search for errant entries.";
+  compare_yaml_to_csv();
+  compare_yaml_to_md();
+  compare_csv_to_md();
+} else {
+  say "The files contain the same number of entries.";
+}
+
+# TODO
+sub compare_yaml_to_csv {
+  say "yamltocsv";
+  #say Dumper($yaml[0]);
+}
+
+# TODO
+sub compare_yaml_to_md {
+  say "yamltomd";
+}
+
+# TODO
+sub compare_csv_to_md {
+  say "csvtomd";
+}
+
+say "Done checking.";
 
 exit 1;