use Perl

• Crying (Score:2)

  by pudge (1)

  This is just crying to be rewritten using Mac::Glue. :-)

  #!/usr/local/bin/perl
  use warnings;
  use strict;
   
  use Mac::Glue ':all';
   
  my $itunes = new Mac::Glue 'iTunes';
   
  $itunes->activate;
   
  my $lesson = $itunes->display_dialog(
      'Enter the lesson:', default_answer => ''
  )->{text_returned};
   
  my $playlist  = $itunes->prop(view => window => 1);
  my @selection = $itunes->prop('selection')->get;
  my @tracks = @selection
      ? @selection
  
  • Re:Crying (Score:2)

    by pudge (1)

    Oh, and I guess that should be $sublist[$i-1]. And heck, make it 0..$#tracks so we can just use $i for both arrays. :-)
    • Re:Crying (Score:2)

      by brian_d_foy (44)

      I won't tell Andy that you didn't test it.
      • Re:Crying (Score:2)

        by pudge (1)

        I did test it, but I was just naming them 1 2 3, forgetting you wanted them a b c. :-)
• How was that lecture? (Score:1)

  by perrin (4270)

  I know this journal entry is ancient, but I was considering getting that same music lecture series and would appreciate a capsule review.
  • Re:How was that lecture? (Score:2)

    by brian_d_foy (44)

    I just finished Robert Greenberg's Operas of Mozart [teach12.com], which I think is much better partly because I've gotten over his speaking style. The information is compelling and interesting, but his speaking style and cadence grates on me. His comedy is poorly delivered, but he just keeps on trying.
    
    That's just my opinion though. Everyone I know who has listened to Greenberg's levtures have been delighted by them.
    
    I'll be in New York next week, so you can hear one of the lectures if you like. They're all on my laptop