#!/usr/bin/perl -w
push
@INC
,
"/mandrakelinux/usr/lib/perl5/site_perl/5.8.4"
;
my
@ListOfPictures
;
my
$folder
=getRootFolder();
parseDB(
"$folder"
);
my
$nb1
=
scalar
keys
%imageattributes
;
my
$nb2
=
scalar
keys
%imageoptions
;
print
"Following options were present in your $nb1 pictures :\n"
;
while
(
my
(
$option
,
$r_values
) = (
each
%alloptions
) )
{
my
$nb
=
scalar
@$r_values
;
print
"\t$nb $option\n"
;
}
print
"\n"
;
printImage( (
keys
%imageattributes
)[0] );
printImage( (
keys
%imageattributes
)[
$nb2
-1] );
print
"\n\n== NO Keywords ==\n"
;
@ListOfPictures
=matchAnyOption(
"Keywords"
=> [] );
print
join
(
"\n"
,
sort
@ListOfPictures
);
print
"\n\n== Holiday ==\n"
;
@ListOfPictures
=matchAnyOption(
"Keywords"
=> [
"holiday"
] );
print
join
(
"\n"
,
sort
@ListOfPictures
);
print
"\n\n== ANNE HELENE ==\n"
;
@ListOfPictures
=matchAnyOption(
"Persons"
=> [
"Anne Helene"
] );
print
join
(
"\n"
,
sort
@ListOfPictures
);
print
"\n\n== ANY OF (JESPER, ANNE HELEN) ==\n"
;
@ListOfPictures
=matchAnyOption(
"Persons"
=> [
"Jesper"
,
"Anne Helene"
] );
print
$_
,
"\n"
foreach
(
sort
@ListOfPictures
);
print
"\n\n== ALL OF (JESPER, ANNE HELEN) ==\n"
;
@ListOfPictures
=matchAllOptions(
"Persons"
=> [
"Jesper"
,
"Anne Helene"
] );
print
join
(
"\n"
,
sort
@ListOfPictures
);
print
"\n\n== PERSONS=Jesper, Locations=Mallorca ==\n"
;
@ListOfPictures
=matchAllOptions(
"Persons"
=> [
"Jesper"
],
"Locations"
=> [
"Mallorca"
]
);
print
join
(
"\n"
,
sort
@ListOfPictures
);