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 EEK (460 Punkte) - 17.08.2016 um 16:06 Uhr

Perl-Code

#!/usr/bin/perl
use strict;
use warnings;

my $count = 0;

print "Eingabe Text: ";
chomp(my $text = <STDIN>);

print "Welches Wort soll gesucht werden: ";
chomp(my $find_word = <STDIN>);

my @words = split(' ', $text);

foreach my $val(@words){
	if($val =~ m/($find_word)/i){
		$count++;
	}
}

print "Das Wort '$find_word' wurde $count mal gefunden\n\n";