Text nach Wörtern untersuchen

2 Lösungen

#29

Anfänger - Perl von Dome - 29.12.2012 um 01:37 Uhr

Ein Text und das Wort was gesucht werden soll, soll eingegeben werden. Daraufhin soll ausgegeben wie oft das Wort in dem Text vorhanden ist.

Konsolenausgabe:

Eingabe Text: Das ist mein Beispieltext.
Welches Wort soll gesucht werden: ist

Das Wort "ist" wurde 1 mal gefunden.

Bitte melden Sie sich an um zur Aufgabenbeschreibung eine Frage zu stellen.

Frage stellen

Bitte melden Sie sich an um eine Lösung einzureichen.

Lösung einreichen

von TooBieee (610 Punkte) - 04.10.2017 um 09:34 Uhr

Perl-Code

use strict;
use warnings;
use feature qw(say);

say "Eingabe Text: ";
chomp(my $text = <STDIN>);
say "Welches Wort soll gesucht werden: ";
chomp(my $wort = <STDIN>);

my @text = split ' ',$text;
my $treffer = grep /$wort/i , @text;

say "Das Wort \"$wort\" wurde $treffer mal gefunden.";