gudn tach!
in der theorie weiß ich, wie ich dateien öffne und in ein array auslese.
in der praxis auch?
also z.b. so:
sub loadFile{
my $infile=shift;
open(INFILE, "<".$infile) || die " file not found\n";
my @lines=<INFILE>;
close(INFILE);
return @lines;
}
my @file_content=loadFile('file.txt');
>
> > irgendwie muss ich dann durch das große array durchloopen und in jeder zeile das kleine array loopen.
>
> ja, z.b. in etwa so
> schleife ueber alle zeilen der zu durchsuchenden datei
> schleiche ueber alle strings (nadeln), nach denen gesucht werden soll
> suche nadel im zeile
> falls gefunden: zeilennummernausgabe
> schleifenende
> schleifenende
>
> suchen kannst du mit regulaeren ausdruecken (perldoc perlre).
>
> so und jetzt faehrt gleich mein bus...
>
> prost
> seth
Danke, seth.
so hatte ich mir das mit dem einlesen gedacht:
~~~perl
my $i = 0;
my $j = 0;
open(DATEI_1, "datei_1") || die "Datei nicht gefunden";
my @Zeilen_1 = <DATEI_1>;
close(DATEI_1);
open(DATEI_2, "datei_2") || die "Datei nicht gefunden";
my @Zeilen_2 = <DATEI_2>;
close(DATEI_2);
foreach $inhalt_1 (@Zeilen_1) {
++$i;
foreach $inhalt_2 (@Zeilen_2) {
++$j;
if ( $inhalt_1[$i] =~ /$inhalt_2[$j]/ ) {
print $i;
}
}
}
ich muss nicht mal nach RegExp suchen; sind ganze wörter. einzig die nummer der aktuellen zeile muss ich ausgeben. ich versuch das ganze als perl -e test.pl laufen zu lassen und es kommt nichts.
Danke, Fritzek