[OT] Hromadne stazeni souboru

[Jindrich Kubec]

At 09:57 16.12.2010, Snail Instruments wrote:
>Jeden patecni - jak stahnout vsechny MIDI soubory ze stranky 
>http://charmer51.tripod.com/images/Midis-2.html ale ulozit je pokud 
>mozno pod stejnym nazvem, jako je odkaz na strance. Vlastni jmena 
>souboru jsou totiz ponekud zkratkovita.

Stahnete si tu stranku na disku a ten perli skript vygeneruje wgeti 
stahovaci davku.
Obecne, neosobni rypnuti do vsech - tohle je opravdu ten 'jednoduchy 
petiminutovkovy basic' jazyk, kterym se prasi presne tyhle prasarnicky.

use strict;

my $in = "Midis-2.html";
open IN, $in or die;
my $buf;
sysread( IN, $buf, -s $in );
close IN;

while( $buf =~ /href=\"([^\"]+mid)\"\>([^\<]+)\<\/a/img )
{
         my $url = $1;
         my $name = $2;
         $url =~ s/\r\n//gm;
         $name =~ s/\r\n//gm;

         print "wget \"$url\" -O \"$name.mid\"\n";
}



Jindroush (kubecj na avast.com)
http://www.kostky.org - Pro fany stavebnic LEGO.