[ drdrksa @ 30.08.2004. 14:28 ] @
Treba mi program (scripta) koji bi prihvatao poduzi spisak linkova ka fajlovima tipa :

Code:

http://www.mojsajt.com/fajl1.bla
http://www.mojsajt.com/fajl2.bla
http://www.mojsajt.com/fajl3.bla
....


I redom ih automatski skidao.

Da li neko zna ime ili eventualni link programa/scripte koji bi ovo radio?
[ Not now, John! @ 30.08.2004. 14:32 ] @
Staviš te linkove u neki txt fajl, npr. fajlovi.txt.
Zatim pozoveš wget -c -i fajlovi.txt i sačekaš...
[ Nemanja Jakovljevic @ 30.08.2004. 14:37 ] @
Ovo je za pronalazenje downloada

fajlove imena download smestati u direktorijume. Svaki fajl download mora da sadrzi samo linkove jedan u jednom redu, kao za wget.

Zavisno je od wget-a

Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga usmerite na ovu stranu.

Komentare zabranjeno brisati

Code:

#!/usr/bin/env perl

#Written by Nemanja Jakovljevic
#
#Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno #prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga #usmerite na ovu stranu.
#
#Komentare zabranjeno brisati
my $br       = -1;
my $putanja  = "/storage/LinuxPortal";
my $tempfile = "/tmp/.temp";
my @temp     = `find $putanja -type f -iname download`;
chop(@temp);
until ( ++$br == @temp )
{
        my $ln       = $temp[$br];
        my $ln2      = substr($ln,0,length($ln)-9);
        my $command  = "wget -b -c --output-file=$ln2/log --input-file=$ln --directory-prefix=$ln2";
        my $st=`ps x | grep -c "$command"`;
        if ( $st == 2 )
        {
                if ( -e $ln2."/log" )
                {
                        open (file,$ln2."/log");
                        @log = <file>;
                        close (file);
                        system ("$command") if (! $log[@log-2] =~ /FINISHED/g);
                }
                system ("$command");
        }
}



Ovo ti je za prikazivanje statusa downloada (ima mesta za poboljsanja)

Code:

#!/usr/bin/env perl
#Written by Nemanja Jakovljevic
#
#Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno #prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga #usmerite na ovu stranu.
#
#Komentare zabranjeno brisati

my $br        = -1;
my $putanja   = "/storage/LinuxPortal";
my @temp1     = `find $putanja -type f -iname log`;
until (++$br == @temp1)
{
    my $ln = @temp1[$br];
    open(file,"$ln");
    @temp2=<file>;
    close(file);
    print(substr($ln,21,length($ln)-26));
    print(" " x (46-length($ln)));
    open(file,substr($ln,0,length($ln)-4)."download");
    my [email protected]=<file>;
    close(file);
    my $bro = @matches = "@temp2" =~ / saved /g;
    $bro++;
    print " $bro/$kol " if ( $bro <= $kol );
    print ($temp2[@temp2-2] =~ /..\%.*\/s/g);
    print ("@temp2" =~ /FINISHED/g,"\n");
}


Ovo je za brisanje download i log fajlova zavrsenih downloada

Code:


#!/usr/bin/env perl
                                                                                                                              
#Written by Nemanja Jakovljevic
#
#Sva prava zadrzana. Moze da se koristi samo u nekomercijalne svrhe. Zabranjeno #prodavanje. Zabranjeno umnozavanje, ako nekome zelite da date ovo, onda ga #usmerite na ovu stranu.
#
#Komentare zabranjeno brisati

my $br      = -1;
my $putanja = "/storage/LinuxPortal";
my @temp    = `find $putanja -type f -iname log`;
until ( ++$br == @temp )
{
my $ln      = @temp[$br];
my $deldir  = substr($ln,0,length($ln)-5);
open (file,$ln);
my @log     = <file>;
close (file);
if ($log[@log-2] =~ /FINISHED/g)
{
system("rm $deldir/download");
system("rm $deldir/log");
}
}

[ alex @ 30.08.2004. 15:16 ] @
Na stranu sto su skripte nepotreban overhead (sto perl kad moze i bash), ali kakva ti je to fora sa "Komentare zabranjeno brisati"?!
[ drdrksa @ 30.08.2004. 20:00 ] @
Not now, John!, najprostije, a radi posao. Tnx a lot.
[ random @ 30.08.2004. 23:29 ] @
curl ima opciju da se neki deo URL-a automatski menja (recimo broj da se inkrementira).
[ Nemanja Jakovljevic @ 31.08.2004. 21:55 ] @
Citat:
alex: (sto perl kad moze i bash)


Prvo su te skripte i bile napisane u bash-u, a onda sam ih napisao u perlu i (zaboravih tacne brojke o kolicini vremena) ali mnoooogo se brze izvrsi perl skript