Perl :: Aufgabe #22
2 Lösungen
Programmier-Basics: Eingabezähler
Anfänger - Perl
von Freki
- 27.12.2012 um 15:01 Uhr
Schreiben Sie ein Programm, das ein Wort einliest. Das Wort wird dann so oft ausgegeben, wie es Buchstaben hat:
Konsolenausgabe:
Geben Sie ein Wort ein:
Hello
Hello
Hello
Hello
Hello
Hello
Lösungen:
use warnings;
use strict;
print "Bitte geben Sie ein Wort ein: \n";
my $wort = <STDIN>;
for(my $i = 0; $i < length($wort); $i++)
{
print "$wort\n";
}# "@anz_bst" beinhaltet nicht die Anzahl der Buchstaben, sonder jeden Buchstaben einzelnd.
# Dient nur zur Benutzung der einfachen foreach-Schleife.
print "\n Wort: ";
chomp($wort = <STDIN>);
@anz_bst = split("", $wort);
foreach(@anz_bst){
print "\n ", $wort;
}