Perl :: Aufgabe #29
2 Lösungen
Text nach Wörtern untersuchen
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.
Lösungen:
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";
Perl-Codeuse 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.";