Menge bestimmter Einträge in einer Datei filtern - #124105 (Allgemeines zu Perl)

topeg

2009-08-11 15:14

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

keine Ahnung ob das wichtig ist, aber der reguläre Ausdruck wird eventuell das falsche matchen.
Wenn ich mir dein Beispiel der Datei ansehe, dann kommt es bei deiner Regexp zu Überschneidungen:
"ABS" wird auch auf "ABS09" matchen und "ASR" auch auf "ASR/88"

Darum hatte ich auch das "$" am ende um wirklich die ganze Zeile zu bekommen.

Ich würde den Zeile wie folgt schreiben:

Code (perl): (dl )

$keys{$string}++ if($line=~/,$string$/);

oder:

Code (perl): (dl )

# kommt sowas dabei heraus: 
# FQTV|PSPT|SNR|BAGL|BAGT|UPG|MSG
# "|" bedeutet "oder"
my $search=join('|',@string);
my %keys;
while (my $line=<OUT>) 
     {
       $keys{$1}++ if($line=~ /,($search)$/);
       $StopDotPrintFlag = 1; #Stop threads
     }