Opened by supersucker at 2006-04-06 13:29
User since
2005-03-17
118 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2005-03-17
118 Artikel
BenutzerIn
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 ''.