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)

    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
    • 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...