#!usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Path::Tiny qw(path);
use MIME::Base64 qw(decode_base64);
use open ':std', ':encoding(UTF-8)';

my $dir = './singleFile';
my @files = glob ( "$dir/*.html" ); 
&getImagesfromHTML();
 
sub getImagesfromHTML {
    &Delimiter((caller(0))[3]);
    
    for my $i (0 .. $#files) {
        my $filename = $files[$i];
        my $content = path($filename)->slurp_utf8;
        $content =~ s/\R//g;
        
        my $i = 0;
        while ($content =~ m/<div class=excerpt-thumb>(.+?)<\/div>/g) {
            $i++;
            my $dataset = $1;
            $dataset =~ m/title="(.+?)"/;
            my $title = $1;
            $title =~ s/Permalink to //;
            $dataset =~ m/src=(.+?) /;
            my $src = $1;
            $src =~ m/data:image\/(.+?)\;base64,/;
            my $filetype = $1;
            $src =~ s/data:image\/(.+?)\;base64,//;
            my $decoded= decode_base64($src);
            open my $fh, '>', "./images/$title.$filetype" or die $!;
                binmode $fh;
                print $fh $decoded;
            close $fh;
            print "Title: $title\nFiletype: $filetype\n\n";
        }
    }
}

sub Delimiter {
    my $SubName = shift;
    print "\n" . "-" x 80 . "\nSUB " . $SubName . "\n" . '-' x 80 . "\n";
}