| Current Path : /var/www/web-klick.de/dsh/90_akt/adr3/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/90_akt/adr3/a.pl |
use Process::Address;
use ARRAY;
my $adr = Process::Address->new("Adressen_2012MA");
#$adr->filter("KNF");
(map {bless($_,ref($_))} $adr->{'ADR'})[0]->rekey();
#map { my $o1 = "KNF_NELSON11" ; $_->{$o1} = $_->{$o1} || ( uc($_->{'INDEX'}) =~ /$o1/ ? "1" : "" ) } @{$adr->{'ADR'}};
#map { my $o1 = "KNF_JAZZM11" ; $_->{$o1} = $_->{$o1} || ( uc($_->{'INDEX'}) =~ /$o1/ ? "1" : "" ) } @{$adr->{'ADR'}};
#map { my $o1 = "KNF_MELBONIS12"; $_->{$o1} = $_->{$o1} || ( uc($_->{'INDEX'}) =~ /$o1/ ? "1" : "" ) } @{$adr->{'ADR'}};
#map { my $o1 = "KNF_UNGAR12" ; $_->{$o1} = $_->{$o1} || ( uc($_->{'INDEX'}) =~ /$o1/ ? "1" : "" ) } @{$adr->{'ADR'}};
#print $adr->csv("","MD5KEY,xMD5KEY,KNF_NELSON11,KNF_JAZZM11,KNF_MELBONIS12,KNF_UNGAR12,NAME,VORNAME,STRASSE,PLZ,STADT,TEL,MAIL,STIMM,SEX,INDEX,BEMERKUNG,","-NAME--VORNAME-");
print $adr->export("","NAME,VORNAME,STRASSE,PLZ,STADT,TEL,MAIL,SEX,INDEX,BEMERKUNG,REST,MD5KEY,xMD5KEY","-NAME--VORNAME--INST--ID-");
#my $ee = bless(map{($_,ref($_))},$adr->{'ADR'});
#$ee->merge( Process::Address1->new("chorliste_2012.csv") );