use Perl

• Attempt (Score:2)

  by pudge (1)

  use Mac::Glue;
   
  my $ab = new Mac::Glue 'Address Book';
   
  my $people = $ab->obj('people');
  for my $person ($people->get) {
      for my $phone ($person->prop('phone')->get) {
          my $value  = $phone->prop('value');
          my $number = $value->get;
          if ($number =~ /whatever/) {
              $number = "whatever";
              $value->set(to =
  • Re:Attempt (Score:2)

    by Theory (10) on 2004.05.25 19:43 (#31087) Homepage Journal

    pudge++

    This did the trick for me. Thanks!

    use Mac::Glue;
    
    # sudo gluemac /Applications/Address\ Book.app
    
    my $ab = new Mac::Glue 'Address Book';
    
    my $people = $ab->obj('people');
    for my $person ($people->get) {
        for my $phone ($person->prop('phone')->get) {
            my $value  = $phone->prop('value');
            my $number = $value->get;
            next if $number =~ /^41-/ || $number =~ /^0/;
            next unless length $number > 9 && $number !~ /^\+/;
            if ($number =~ /(\d{3})[.-\s](\d{3})[.-\s](\d{4})(.*)/) {
                $number = "+1 ($1) $2-$3$4";
            } else {
                $number = "+1 $number";
            }
            print "$number\n";
            $value->set(to => $number);
        }
    }

    Reply to This

    Parent

    • Re:Attempt (Score:2)

      by pudge (1)

      Great, glad it worked. I saw something about uninitialized values in IRC, did you figure that one out?
      • Re:Attempt (Score:2)

        by Theory (10)

        No, I just removed the -w from the shebang line. It was a one-off, and so not worth the effort to debug. Must've been a problem with the data in my address book...