Guest rakudo

Wie könnte ich diese drei perl5-Codeteile in funktionierenden perl6-code umwandeln?

Code (perl): (dl )

1
2
3

use Term::ReadKey;
Term::ReadKey::ReadMode 'ultra-raw';
my $c = ReadKey 0;

Quote

Code (perl): (dl )

1
2

my $string = "Zeile 1\nZeile 2\nZeile 3\n";
my $newlines = ( $string =~ tr/\n/\n/ );

my $newlines = +$string.comb(/\n/);

Quote

Code (perl): (dl )

1
2
3
4
5
6

sub routine {
    ...
    my $multi = '';
    $multi = 'multiple choice' if wantarray;
    ...
}