Course of Raku / Objects, I/O, and exceptions / Input and output / File handles / Exercises / Number the lines

Solution: Number the lines

Here is a possible solution to the task.

Code

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

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

🦋 You can find the source code in the file shout-the-lines.raku.

Output

1: apple
2: banana
3: cherry

Comments

spurt writes the three words to the file, separated by newlines.
.IO.lines yields the lines one by one, without their trailing newlines. We keep a counter $n that we bump on each pass, so every line is printed together with its position in the file.

← Number the lines | Count the lines →