#!/usr/bin/perl -w
#Markus Westphal 16.06.2005

use strict;
my ($ausgabedatei, $text,$wcnt,@ar,$i,%ass,$lenght,$index);

$ausgabedatei = "wcnt.txt";
if ( !open (_F, "<$ausgabedatei")){
	print "wcnt.txt wurde erstellt!\n";
	open (_F, ">$ausgabedatei") || die ("In die Datei $ausgabedatei kann nicht geschrieben werden\n");
	close (_F);
}

while(<STDIN>){
	$text=$_;
	#$text="Reen ist hhhabbnmnbn lkldkld KKKlkh";
	$text=~ s/\W/ /g;
print "$text";

	@ar=split(" ", $text); 

    for ($i=0; $i<=$#ar; $i++)
    {
        if (!defined($ass{$ar[$i]}))
        {
            $ass{$ar[$i]} = 1;
        }
        else
        {
            $ass{$ar[$i]}++;
        }
    }
}

$wcnt = "wcnt.txt";
open (F, ">>$wcnt") || die ("In die Datei $wcnt kann nicht geschrieben werden\n");
print F "-------------------neue Datei------------------- \n";

foreach $index (sort by_value keys %ass)
{
   $lenght=length($index);
    #print F <STDIN>;
    printf  (F "%15s %6d %10d \n", $index, $ass{$index}, $lenght);
}

sub by_value {$ass{$b} <=> $ass{$a};}

close (F);