| Subject: | mac::iPhoto Can't use string ("") as a HASH ref while "strict refs" |
I've tried the module mac::iPhoto 0.1 on my os x with perl 5.8.1.
My code looks like this:
---
#!/usr/bin/perl
#
# Example program. Demonstrates usage of Mac::iPhoto.pm module.
#
use CGI ':standard';
use Mac::iPhoto;
print header();
print start_html();
my $a = new Mac::iPhoto("AlbumData.xml");
$a->parse;
printf "Created by iTunes v. %s / maj.%s / min.%s\n",
$a->{'Properties'}->{'Application Version'},
$a->{Properties}->{'Major Version'},
$a->{Properties}->{'Minor Version'};
printf "Album path: %s\n", $a->{Properties}->{'Archive Path'};
for my $album (@{$a->{Data}->{Albums}}) {
printf "Name: %s \n", $album->{'AlbumName'};
printf "BookDesignName: %s \n", $album->{'BookDesignName'};
for my $key ( @{$album->{'KeyList'}}) {
print $key, ": \n";
printf "\t%s\n\t%s\n\t%s\n\t%s\n\t%s\n\t%s\n",
$a->{Data}->{Images}->[$key]->{'Date'},
$a->{Data}->{Images}->[$key]->{'ImagePath'},
$a->{Data}->{Images}->[$key]->{'ThumbPath'},
$a->{Data}->{Images}->[$key]->{'Caption'},
$a->{Data}->{Images}->[$key]->{'Comment'},
$a->{Data}->{Images}->[$key]->{'ModificationDate'};
}
}
---
My errorlog states
Can't use string ("") as a HASH ref while "strict refs" in use at /Library/Perl/5.8.1/Mac/iPhoto.pm line 185, <GEN0> chunk 1.