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

Merge pull request #533 from NezumiRonin/main

Browse Source 
Final yatol.pl
This commit is contained in:
Jeff Atwood
2022-01-21 17:05:43 -08:00
committed by GitHub
parent ca240db275 be98237f42
commit 73e488e54b
1 changed files with 19 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
00_Utilities/yatol.pl
View File

@@ -11,9 +11,14 @@ 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 ."BAS\t";
my $Row=25;
my $Tab=7;
printf("%-$Row\s", "PATH");
printf("%$Tab\s", "BAS");
foreach my $Dir (@Langs) {
print "$Dir\t";
printf("%$Tab\s", $Dir);
}
print "\n";
@@ -25,31 +30,31 @@ foreach my $Lin (@Ret) {
my @Parts= split(/\//, $File);
my $Base= $Parts[1];
my $Tab= 25-length($Base);
print "$Base".(" "x$Tab)."$Num\t";
printf("%-$Row\s", $Base);
printf("%$Tab\s", "$Num");
foreach my $Dir (@Dirs) {
my $Path= "../$Base/$Dir/";
my $Ret= `ls $Path | wc -l`;
if ($Ret>1) { print "YES"; $Sum{$Dir}++; }
else { print " ";}
print "\t";
if ($Ret>1) { printf("%$Tab\s", "YES"); $Sum{$Dir}++; }
else { printf("%$Tab\s", " ");}
}
print "\n";
print "\n";
}
print "\t\tFILES:\t\t";
printf("%$Row\s", "FILES:");
printf("%$Tab\s", " ");
foreach my $Dir (@Dirs) {
print "$Sum{$Dir}\t";
printf("%$Tab\s", "$Sum{$Dir}");
}
print "\n";
print "\t\tADVANCE:\t";
printf("%$Row\s", "ADVANCE:");
printf("%$Tab\s", " ");
foreach my $Dir (@Dirs) {
my $Per= int($Sum{$Dir}/$Count*100)."%";
print "$Per\t";
printf("%$Tab\s", "$Per");
}
print "\n";