Aus Textdatei nach bestimmten Wort Wörter auslesen - #170141 (Allgemeines zu Perl)

Muffi

2013-09-12 14:48

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Code (perl): (dl )

use strict;
use warnings;

my $a = q|TEST ist das Haus
vom
Test Ni Ko
Laus|;

my @words;
push @words, split(/ /, $_) for ($a =~ /^Test (.*)/img);
say join(',',@words);
say scalar @words;

[EDIT] Ha, geht doch als 1-Zeiler

Code (perl): (dl )

say scalar map { split(/ /, $_) } ($a =~ /^Test (.*)/img);

Last edited: 2013-09-13 11:31:11 +0200 (CEST)

1 + 1 = 10