Opened by Gast at 2005-04-22 01:20
Hallo
Ich habe ein Perl Skript der in einer Datei nach einer Zeichenfolge sucht und das Resultat ausgibt mit Zeilennummer.
Wie kann ich neben den Zeilennummern nun noch das Wort ausgeben welches die Zeichenfolge beinhaltet?
Besten Dank für Eure Hilfe.
Gruss
Savvo
Ich habe ein Perl Skript der in einer Datei nach einer Zeichenfolge sucht und das Resultat ausgibt mit Zeilennummer.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl
open( DATEI, "<@ARGV[0]" ) or die $!; # einlesen einer Datei über Parameter
$resultat=0;
while( $zeile = <DATEI> ) {  
; # alle Zeilen einlesen
$zeilenAnzahl++;
if( $zeile =~ m/@ARGV[1]?/i ) {
print "Zeile " . $zeilenAnzahl . ": " . "\n";
$resultat++;
}
}
print "\n";
print "Das Wort \" " . @ARGV[1] . " \"" . " ist in der Datei " . "\" " . @ARGV[0] . " \" " . $resultat . " mal enthalten.";
print "\n\n";
close( DATEI ); &n
bsp; # Datei schliessen
Wie kann ich neben den Zeilennummern nun noch das Wort ausgeben welches die Zeichenfolge beinhaltet?
Besten Dank für Eure Hilfe.
Gruss
Savvo