From 37eb53b4f1e0d3963c8e1918a6f86273aba2f0f4 Mon Sep 17 00:00:00 2001
From: Nezumi Ronin <nezumironin@gmail.com>
Date: Thu, 20 Jan 2022 16:02:04 -0600
Subject: [PATCH 1/2] Create yatol.pl

YATOL: Yet Another TOdo List
Get list of basic files ordered by number or lines. This way you can do the easier ones first.
---
 00_Utilities/yatol.pl | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 00_Utilities/yatol.pl

diff --git a/00_Utilities/yatol.pl b/00_Utilities/yatol.pl
new file mode 100644
index 00000000..71861209
--- /dev/null
+++ b/00_Utilities/yatol.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl
+#YATOL: Yet Another TOdo List
+use strict;
+
+#REM: Get list of basic files ordered by number or lines.
+#REM: This way you can do the easier ones first.
+my @Ret=`find .. -iname '*.bas' -exec wc -l \{\} \\; | sort -h`;
+
+
+my @Langs= qw(PL JS VB PAS RB C# JAVA PY);
+my @Dirs= qw(perl javascript vbnet pascal ruby csharp java python);
+
+print " "x 25 ."LINES\t";
+foreach my $Dir (@Langs) {
+	print "$Dir\t";
+	}	
+print "\n";
+
+foreach my $Lin (@Ret) {
+	chomp $Lin;
+	my ($Num, $File)= split (" ", $Lin);
+	my @Parts= split(/\//, $File);
+	my $Base= $Parts[1];
+
+	my $Tab= 25-length($Base);
+	print "$Base".(" "x$Tab)."$Num\t";
+
+	foreach my $Dir (@Dirs) {
+		my $Path= "../$Base/$Dir/";
+		my $Ret= `ls $Path | wc -l`;
+		if ($Ret>1) { print "YES"; }
+			else { print "  ";}
+		print "\t";
+		}
+	print "\n";

From a8c3604986a9a55df7aefc58567dcbcded820abd Mon Sep 17 00:00:00 2001
From: Nezumi Ronin <nezumironin@gmail.com>
Date: Thu, 20 Jan 2022 16:07:19 -0600
Subject: [PATCH 2/2] Update yatol.pl

---
 00_Utilities/yatol.pl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/00_Utilities/yatol.pl b/00_Utilities/yatol.pl
index 71861209..136c3d67 100644
--- a/00_Utilities/yatol.pl
+++ b/00_Utilities/yatol.pl
@@ -33,3 +33,4 @@ foreach my $Lin (@Ret) {
 		print "\t";
 		}
 	print "\n";
+	}