Hey,
dieses Wochenende habe ich mal dran gemacht ein kleines Script zu schreiben was meine Telefonnummern im Address Book auf Mac mit +49 versieht und div. Zeichen löscht.
Dazu habe ich mich für Perl und Mac::Glue entschieden da ich mal wieder was mit Perl machen wollte. Vielen Dank geht an Plu der mir wie immer geduldig meine Perl fragen beantwortete.
Hier der Wichtigste teil des Scriptes:
Das ganze zum Download
robert
dieses Wochenende habe ich mal dran gemacht ein kleines Script zu schreiben was meine Telefonnummern im Address Book auf Mac mit +49 versieht und div. Zeichen löscht.
Dazu habe ich mich für Perl und Mac::Glue entschieden da ich mal wieder was mit Perl machen wollte. Vielen Dank geht an Plu der mir wie immer geduldig meine Perl fragen beantwortete.
Hier der Wichtigste teil des Scriptes:
my $addr = Mac::Glue->new('Address Book');
foreach ($addr->obj('people')->get){
foreach ($_->prop('phones')->get){
my $num = $_->prop('value')->get;
$num =~ s/(-|\/| )//g;
$num =~ s/^0/\+49/g;
$_->prop('value')->set(to => $num." ");
}
}
Das ganze zum Download
robert
