Help for this page

Select Code to Download


  1. or download this
    my $match = '1995_Olga_goes_to_Egypt';
my @pictures = qw{1995/1995_Olga_first_time_in_Cyprus/06330004.JPG
...
    }
}
print "Result: $picture\n";
  2. or download this
    buu@ded430-deb-175-30:~/test$ perl test.pl
Debug: 1995/1995_Olga_first_time_in_Cyprus/06330004.JPG
Debug: 1995/1995_Olga_goes_to_Egypt/QD0017004.JPG
Matched, 1995/1995_Olga_goes_to_Egypt/QD0017004.JPG
Result: