Thread Dateien nach String durchsuchen (3 answers)
Opened by Monk at 2008-06-05 02:03

Monk
 2008-06-05 02:03
#110743 #110743
User since
2008-05-20
3 Artikel
BenutzerIn
[default_avatar]
Guten Abend,
ich habe da ein kleines Problem.
Ich möchte eine Suchfunktion programmieren und habe auch schon etwas rumprobiert.
Also es geht um folgendes:

Ich habe in einem Ordner mehrere .txt Dateien mit Inhalt.
Beispiel :
1.txt besitzt den Inhalt "ich bin beschreibung nummer1"
2.txt besitzt den Inhalt "ich bin beschreibung NUMMER2"
3.txt besitzt den Inhalt "ICH BIN BESCHREIBUNG NUMMER3"

So. Ich möchte nun in meinem PerlScript ein Suchwort eingeben, und es sollen daraufhin alle inhalte angezeigt werden, wo das Suchwort gefunden wurde.

Zb: Ich gebe ein "ich" und der text aller 3 dateien wird angezeigt.
Wenn ich "nummer2" eingebe soll halt nur der Inhalt aus 2.txt angezeigt werden.

Hier mal mein VersuchsCode:



Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/perl

$suche = "nummer"; 

@list = "";
foreach $file (glob("*.txt"))
{
open(READ,"$file") || "Fehler beim oeffnen";
push (@list,<READ>);
close(READ);
}

$count = "";

foreach $movie ("@list")
{
$count++;
        if ($movie=~ /$suche/i)
        { 
        print "Gefunden : ","@list[$count]";
        }
        else
        {
        print "Nix gefunden";
        }
}


Wäre nett wenn mir jemand erklärt wie ich das machen könnte, denn das Script funktioniert nicht richtig.
Wenn ich "nummer2" eingebe kommt auch der text mit nummer2, aber wenn ich zb "beschreibung" eingebe kommt NUR der Text aus 2.txt. ka wieso :(

Mit freundlichem Gruß

Monk

View full thread Dateien nach String durchsuchen