gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-25 20:34:32 -08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #527 from NezumiRonin/patch-30

Browse Source 
Create yatol.pl
This commit is contained in:
Jeff Atwood
2022-01-20 14:47:56 -08:00
committed by GitHub
parent 3450244308 a8c3604986
commit 21c77ce516
1 changed files with 36 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
00_Utilities/yatol.pl Normal file
View File

@@ -0,0 +1,36 @@
#!/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";
}