Source

perl-HTML-Links-Localize / modules / HTML-Links-Localize / examples / html-to-hd.pl

Full commit
#!/usr/bin/perl -w

use strict;

use Getopt::Long;
use HTML::Hard::Disk;

my $only_newer;

my $result = GetOptions("f" => \$only_newer);

my $src_dir = shift;
my $dest_dir = shift || "./dest";

my $converter = 
    HTML::Hard::Disk->new(
        'base_dir' => $src_dir,
        'dest_dir' => $dest_dir
    );

$converter->process_dir_tree('only-newer' => $only_newer);