#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use LWP::Simple; use Encode::Detect::Detector; use Mac::Glue; my $itunes = new Mac::Glue 'iTunes'; #print Dumper($itunes); my $library = $itunes->obj(library_playlist => 1); #print Dumper($library); my $tracks = $itunes->obj(tracks => $library); my @tracks = $itunes->get($tracks); #print scalar(@tracks), " ----", $/; # 再生中か? #print $itune