Yet another useless Perlscript …

… unless you like to watch Dragonball, Dragonball Z or Dragonball GT 😉

#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
my $src = "http://www.watch-dragonball.com/watch/%03d-Dragonball_Episode_%03d.html";

for (my $i=1;$i<=153;$i++) {
	my $url = sprintf ($src, $i, $i);
	my $file = sprintf("db-%03d.flv", $i);
	my $link = get($url);
	$link =~ s/.*file=(.*)&logo.*/$1/msi;
	`wget -c $link -O $file`	
}