diff options
| -rw-r--r-- | Aufgabe2/skript3.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/Aufgabe2/skript3.pl b/Aufgabe2/skript3.pl index bf501aa..367567d 100644 --- a/Aufgabe2/skript3.pl +++ b/Aufgabe2/skript3.pl @@ -36,6 +36,12 @@ my $chapter_file_name = 'Stechlin-01.txt'; # input file name open my $chapter, '<', $chapter_file_name or die "$0 : failed to open input file '$chapter_file_name' : $!\n"; +printf "Zweck : Auszählung der Buchstabenhäufigkeiten\n\n"; + +printf "Eingabedatei : %s\n\n", $chapter_file_name; + +printf "Tabelle der Zeichenhäufigkeiten :\n\n"; + my $kapitel = <$chapter>; my %haeufig; |