Raku-Kurs / Objekte, Ein- und Ausgabe und Ausnahmen / Ein- und Ausgabe / Datei-Handles / Exercises / Nummerieren Sie die Zeilen

Lösung: Nummerieren Sie die Zeilen

Hier ist eine mögliche Lösung der Aufgabe.

Code

spurt 'words.txt', "apple\nbanana\ncherry\n";

my $n = 0;
for 'words.txt'.IO.lines -> $line {
    $n++;
    say "$n: $line";
}

🦋 Du findest den Quellcode in der Datei shout-the-lines.raku.

Ausgabe

1: apple
2: banana
3: cherry

Kommentare

1. spurt schreibt die drei Wörter, durch Zeilenumbrüche getrennt, in die Datei.

2. .IO.lines liefert die Zeilen eine nach der anderen, ohne ihre abschließenden Zeilenumbrüche. Wir führen einen Zähler $n, den wir bei jedem Durchgang erhöhen, sodass jede Zeile zusammen mit ihrer Position in der Datei ausgegeben wird.

Kursnavigation

← Nummerieren Sie die Zeilen   |   Zeilen zählen →