gitea-mirror/basic-computer-games
1
0
Fork 0
mirror of https://github.com/coding-horror/basic-computer-games.git synced 2025-12-29 06:05:36 -08:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #529 from NezumiRonin/main

Browse Source 
Sorry...
This commit is contained in:
Jeff Atwood
2022-01-20 16:25:24 -08:00
committed by GitHub
parent 21c77ce516 9ca24407fe
commit 6776ec9edd
1 changed files with 22 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
00_Utilities/yatol.pl Normal file → Executable file
View File

@@ -2,21 +2,24 @@
#YATOL: Yet Another TOdo List
use strict;
#REM: Get list of basic files ordered by number or lines.
#REM: Get list of basic files ordered by number of 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);
my %Sum;
print " "x 25 ."LINES\t";
print " "x 25 ."BAS\t";
foreach my $Dir (@Langs) {
print "$Dir\t";
}
print "\n";
my $Count;
foreach my $Lin (@Ret) {
$Count++;
chomp $Lin;
my ($Num, $File)= split (" ", $Lin);
my @Parts= split(/\//, $File);
@@ -28,9 +31,25 @@ foreach my $Lin (@Ret) {
foreach my $Dir (@Dirs) {
my $Path= "../$Base/$Dir/";
my $Ret= `ls $Path | wc -l`;
if ($Ret>1) { print "YES"; }
if ($Ret>1) { print "YES"; $Sum{$Dir}++; }
else { print " ";}
print "\t";
}
print "\n";
}
print "\t\tFILES:\t\t";
foreach my $Dir (@Dirs) {
print "$Sum{$Dir}\t";
}
print "\n";
print "\t\tADVANCE:\t";
foreach my $Dir (@Dirs) {
my $Per= int($Sum{$Dir}/$Count*100)."%";
print "$Per\t";
}
print "\n";