Thread nach dem Fund Zeilennummern auch zurückgeben
(22 answers)
Opened by Henri at 2015-05-09 15:57
Hallo,
ich habe hier einen Code, damit kann ich wörter in einer Text-Datei durchsuchen, aber ich möchte auch, dass er mir die zeile nummer zurückgibt. dh. ZB hier eine Datei mit der folgede text. aaaaaaaaaaaaaaaaaaaaawort1aaaaaaaa bbbbbbbbbbbbbbwort2bbbbbbbbbbbbbbb cccccccccccccccccccccwort3cccccccc dddddddddddwort1dddddddddddddddddd eeeeeeeeeeeeeeeeeeeewort4eeeeeeeee wenn ich nach den Wörter wort1, wort2, wort3, wort4 durchsuche gibt er mir das folgende Ergebnis: wort1 Zeile: 1,4 wort2 Zeile: 2 wort3 Zeile: 3 wort4 Zeile: 5 Danke für ihre Mithilfe 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; use Tie::File; my @testitems = qw(Wort1, Wort2, wort3, wort4); my $filename = 'result_2.csv'; my %result; #my $regexp = "(". join('|', map {uc($_)} @words) tie my @array, 'Tie::File', $filename or die "$!\n"; foreach my $item (@testitems) { $result{$item} = grep {/(^|[\s.;])$item([\s.;]|$)/i} @array; } untie @array; print "items found: "; foreach my $item (@testitems) { print "$item " if ($result{$item}); } print "\n"; Last edited: 2015-05-09 18:16:47 +0200 (CEST) View full thread nach dem Fund Zeilennummern auch zurückgeben |