array

[xwolf]

Hi,

ich will einprogramm schreiben, wo ich einen beliebigen text eingebe.
anschließend soll der text, die anzahl der wörter und die anzahl der vorhandenen vokale ausgegeben werden.
zu dem (noch nicht vorhanden) programmteil mit den vokalen bräuchte wohl oder übel auch noch einmal einen tipp.

hier mein bisheriger quellcode

$a = 0;
print "bitte geben sie ihre werte ein, fuer die beendigung <STRG-Z> eingeben\n";

besser so:
chomp($string = <STDIN>);

foreach $word(@string)
{
$a++
}
print "@string\n";

print "$string\n";

print "sie haben $a woerter eingegeben\n";

Ganz simpel:

@worte = split(/[\n\r\s]+/,$string)
$a = scalar(@worte);

Fuer die Zahl der Buchstaben nimmst du am besten eine RegExp:

$cnt = $string =~ tr/a/a/i;

$cnt enthaelt die Zahl der Buchstaben "a" und "A" in dem String.

sleep 4;

Ciao,
  Wolfgang