Select Code to Download

Select or download this

$VAR1 = {
          'divs' => [
...
                    ],
          'href' => '/p19581477.html'
        };

Select or download this

$VAR2 = {
          'divs' => [
...
                    ],
          'href' => '/p19581480.html'
        };

Select or download this

my $test = $pictures[2];
print $test."\n";
foreach my $ky (keys %$test) { print $ky." = ".$test->{$ky}."\n"; }
my $yy = $test->{'divs'};
foreach my $xx (@$yy) { print $xx."\n";}

Select or download this

HASH(0x831fa5c)
divs = ARRAY(0x831da2c)
href = /p19581479.html
Top view of bare movement
2048x1536
DSCN0097.JPG

Select or download this

my $i = 0;
foreach my $pic (@pictures) {
  print $i." href : ".$pic->{'href'}."  divs : ";
...
  print "\n";
  $i++;
}

Select or download this

0 href : /p19581477.html  divs :
1 href : /p19581478.html  divs :
2 href : /p19581479.html  divs :
3 href : /p19581480.html  divs :

Select or download this

  
my $tmp = $pic->{'divs'};
foreach my $xy (@$tmp) { print .", ".$xy; }

Select or download this

my $yy = $test->{'divs'};
foreach my $xx (@$yy) { print $xx."\n";}