1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
# main-parameeters my %config=( debug=>0, # Kontrollausgaben osmfile=>'medical.osm', # osm-daten reportfile=>'medical_reporting.html', # reportdatei title=>'Testauswertung', # tags die nicht ausgewertet werden sollen tag_not_docu=>("area"), # damit diese nicht nochmal ausgewertet werden tag_addr=>("addr:housenumber", "addr:housename", "addr:street", "addr:postcode", "addr:full") ); ... my @tags_not_reported = (); ... for my $key_name (@key_list) { if(grep{$key_name}$config{tag_addr}){ print $key_name." -> gefiltert\n"; next; } }
grep { $_ eq $search_for_me } @list
1
2
3
4
5
6
7
8
9
10
11
12
13
14
my %config = (
tag_addr => [
"addr:housenumber", "addr:housename", "addr:street",
"addr:postcode", "addr:full"
],
);
my @key_list = qw/addr:housenumber addr:name addr:street/;
for my $key_name (@key_list) {
if( grep{ $key_name eq $_ } @{$config{tag_addr}} ) {
print $key_name." -> gefiltert\n";
}
}