1. Shlomi Fish
  2. perl-HTML-Links-Localize

Source

perl-HTML-Links-Localize / modules / HTML-Links-Localize / html-to-hd

#!/usr/bin/perl -w

use strict;

use Getopt::Long;
use HTML::Links::Localize;

my $only_newer;

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

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

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

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