Slash Boxes
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

The Fine Print: The following comments are owned by whoever posted them. We are not responsible for them in any way.
More | Login | Reply
Loading... please wait.
  • Yeah, gimme an example. And it's "Apple events", FWIW: upcase Apple, downcase events, two words.
    • Found it...

      print "This is stdout\n";
      print STDERR "This is stderr\n";
      print "Load Mac::Glue? [y/n] ";
      chomp( my $answer = <STDIN> );
      if( $answer =~ m/y/ )
          require Mac::Glue;
          die "Could not load Mac::Glue: $@" if $@;
          my $iPhoto = Mac::Glue->new( 'iPhoto' );
          print "Talk to iPhoto? [y/n] ";
          chomp( my $answer = <STDIN> );
          if( $answer =~ m/y/ )