Opened by burnersk at 2009-08-25 13:19
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
kann ich nicht nachvollziehen:
am besten, du postest ein lauffähiges skript, was den fehler reproduziert.
siehe auch unsere FAQ, wie man code postet. minimales skript, daten, ausgabe, erwartete ausgabe.
genereller tip: schreib statt m/\@$domain$/ besser m/\@\Q$domain\E$/,
denn wenn punkte in der domain vorkommen oder andere spezielle regex-zeichen, dann werden die von m// interpretiert. ist aber in dem fall oben nicht relevant.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
perl -wle'
use Data::Dumper;
my $data = {
q/foo@t-online.example/ => 1,
q/foo@-online.example/ => 1,
};
my $domain = "-online.example";
foreach my $email (keys %$data) {
if ($email =~ m/\@$domain$/) {
delete $data->{$email};
}
}
print Dumper $data;'
$VAR1 = {
'foo@t-online.example' => 1
};
am besten, du postest ein lauffähiges skript, was den fehler reproduziert.
siehe auch unsere FAQ, wie man code postet. minimales skript, daten, ausgabe, erwartete ausgabe.
genereller tip: schreib statt m/\@$domain$/ besser m/\@\Q$domain\E$/,
denn wenn punkte in der domain vorkommen oder andere spezielle regex-zeichen, dann werden die von m// interpretiert. ist aber in dem fall oben nicht relevant.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem