Select Code to Download

perl fix_fonts_test.pl C:\thomasdata\thomasprojects\fixhtml\test\fonts
+\stripStandard Fixtotext
perl fix_fonts_test.pl C:\thomasdata\thomasprojects\fixhtml\test\fonts
+\toClassWeiss Fixtoclassweiss
perl fix_fonts_test.pl C:\thomasdata\thomasprojects\fixhtml\test\fonts
+\toClassRot Fixtoclassrot
perl fix_fonts_test.pl C:\thomasdata\thomasprojects\fixhtml\test\fonts
+\toClassKlein Fixtoclassklein
perl fix_fonts_test.pl C:\thomasdata\thomasprojects\fixhtml\test\fonts
+\toClassesKleinNGrau Fixtoclasskleinandgrau

#!/usr/bin/perl
use strict;
...
    }
    
}

sub get_test_dirs {
    my $dir = shift or die "no directory specified.";
...
    my @dirs = keys %dirs;
       return @dirs;    
}