Die Webseiten der Fachschaft Informatik am ERG Saalfeld
split
Um einen String zu zerlegen, verwendet man den Befehl "split". Es wird als erster Parameter das Trennzeichen
übergeben (im Beispiel ein Leerzeichen). Danach der String, der zerlegt werden soll. Das Ergebnis ist eine Liste der
Elemente.
Programm
use strict;
use warnings;
# wir initialisieren unseren String
my $zeile = 'Diese Zeile hat insgesamt 14 Wörter, dabei ist die Zahl 14 auch ein Wort.';
# wir geben diesen String aus
print $zeile, "\n";
# wir zerlegen ("splitten") $zeile an den Leerzeichen als Trennzeichen
my @temp = split / /, $zeile; # zwischen den zwei Slashs steht ein Leerzeichen!
# wir ermitteln die Anzahl der Elemente in @temp
my $anzahl = scalar @temp;
# wir geben diese Anzahl aus
print $anzahl, "\n";
# wir geben die Elemente von @temp aus, jedes in einer Zeile
foreach my $element (@temp) {
print $element, "\n";
}
__END__
Der Aufruf sah bei mir so aus:
Aufgaben
- Bringen Sie das Programm zum Laufen.
- Zeichnen Sie zu diesem Programm ein Struktogramm
- Ergänzen Sie das Programm um eine Überschrift.
- Ergänzen Sie das Programm so, dass der Nutzer sofort erkennen kann, was dieses Programm macht.
- Leiten Sie die Ausgaben in eine Datei um. Vergleichen Sie den Inhalt der Textdatei mit der Ausgabe auf der Konsole (Umlaute!)
- Ändern Sie das Programm so, dass alle Wörter klein geschrieben werden.
- Ändern Sie das Programm so, dass alle Wörter groß geschrieben werden.
- Ändern Sie das Programm so, dass die Wörter in einer Zeile ausgegeben werden und zwischen den Wörtern ' +++ ' steht. ("zwischen" heißt, dass am Ende kein '+++' steht!)
zurück
© ERG Saalfeld - Hans-Dietrich Kirmse 8.01.2015
|