Thread Wörter in einer Datei suchen (8 answers)
Opened by KatPerl at 2020-04-09 14:21

Gustl
 2020-04-09 15:44
#191725 #191725
User since
2011-01-27
429 articles
BenutzerIn
[Homepage]
user image
Hallo, hier mal ein kleines Beispiel wie es gehen würde:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#!/usr/bin/perl

use strict;
use warnings;

my $search = <STDIN>;                    # Eingabe des Suchwortes
chomp $search;                           # Zeilenumbruch von Eingabe entfernen 

my $count = 0; 

open(my $file, "ue1.txt");

while (<$file>){
  chomp;                                 # Zeilenumbruch von eingelesene Zeile entfernen
  my @tmp = split / /, $_;               # Alle Wörter mit Satzzeichen in ein Array packen
  foreach( @tmp ){                       # Array durchlaufen
    s/[^\w]//g;                          # Alle non word character entfernen (Satzzeichen)
    $count++ if lc $_ eq lc $search;     # Wenn das wort nun deiner Eingabe entspricht (Vergleich mit lowercase) - zähle $count hoch
  }
}
print $count;

View full thread Wörter in einer Datei suchen