Thread regex: mehrere Treffer pro Zeile (56 answers)
Opened by supersucker at 2006-04-06 13:29

supersucker
 2006-04-06 13:54
#64422 #64422
User since
2005-03-17
118 Artikel
BenutzerIn
[default_avatar]
Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my $regexRfqEmail = qw((\s+)([a-z0-9\-._]+@[a-z0-9\-.]+\.(de|org))(\b));

print  "parsing rfq_infile..\n";

open(rfqInfile, $rfqInfile) or die("could not open rfqInfile: " . $rfqInfile);

while($line = <rfqInfile>) {

    $line = lc($line);
    if($line =~ m/$regexRfqEmail/g) {
        $posEmails{$2} = '';
// debug        
print "email : " . $2 . "\n";    
    }


Wird eine email gefunden, wird sie in einem Hash namens posEmails eingetragen. Hash deshalb weil ich die emails die mehrfach vorkommen nur einmal eintragen möchte. Da mich nur key, also die emails interessieren setze ich den value auf ''.

View full thread regex: mehrere Treffer pro Zeile