diff options
| author | Aentfs <aentfs@gmx.de> | 2015-10-15 16:04:48 +0200 |
|---|---|---|
| committer | Aentfs <aentfs@gmx.de> | 2015-10-15 16:04:48 +0200 |
| commit | 2d6eb962777b6668dfc3e76ed75c0bde6cf5a5d5 (patch) | |
| tree | bc624ca0c049d358180f5a6582e5cf1176cd46ad /Aufgabe2/skript3.pl | |
| parent | 3ae857f9352bf05d052db0301b0a718399ff85a6 (diff) | |
| download | Skriptsprachen-2d6eb962777b6668dfc3e76ed75c0bde6cf5a5d5.tar.gz Skriptsprachen-2d6eb962777b6668dfc3e76ed75c0bde6cf5a5d5.zip | |
Format assignment 2.3
Diffstat (limited to 'Aufgabe2/skript3.pl')
| -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; |