From 2d6eb962777b6668dfc3e76ed75c0bde6cf5a5d5 Mon Sep 17 00:00:00 2001 From: Aentfs Date: Thu, 15 Oct 2015 16:04:48 +0200 Subject: Format assignment 2.3 --- Aufgabe2/skript3.pl | 6 ++++++ 1 file changed, 6 insertions(+) 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; -- cgit v1.2.3-70-g09d2