Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Program/scripta za mass download

[es] :: Skript jezici :: Program/scripta za mass download

[ Pregleda: 2350 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

drdrksa

Član broj: 1077
Poruke: 3650



+6 Profil

icon Program/scripta za mass download30.08.2004. u 14:28 - pre 194 meseci
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?
 
Odgovor na temu

Not now, John!

Član broj: 231
Poruke: 1317
*.dialup.blic.net



+4 Profil

icon Re: Program/scripta za mass download30.08.2004. u 14:32 - pre 194 meseci
Staviš te linkove u neki txt fajl, npr. fajlovi.txt.
Zatim pozoveš wget -c -i fajlovi.txt i sačekaš...

"I'd take the awe of understanding over the awe of ignorance any day."
- Douglas Adams
 
Odgovor na temu

Nemanja Jakovljevic

Član broj: 940
Poruke: 707
*.ptt.yu



+39 Profil

icon Re: Program/scripta za mass download30.08.2004. u 14:37 - pre 194 meseci
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");
}
}


Nemanja Jakovljevic
 
Odgovor na temu

alex
Aleksandar Radulovic
Senior Software Engineer, Spotify
Stockholm, Sweden

Član broj: 71
Poruke: 2194
*.habil.is

Jabber: alex@a13x.info
ICQ: -1
Sajt: www.a13x.info


+1 Profil

icon Re: Program/scripta za mass download30.08.2004. u 15:16 - pre 194 meseci
Na stranu sto su skripte nepotreban overhead (sto perl kad moze i bash), ali kakva ti je to fora sa "Komentare zabranjeno brisati"?!
Alex: My favorite site is http://localhost/
R.J. Oppenheimer: "I am become death, destroyer of worlds" (1945 AD)
tweet.13x ||
linkedin.13x
 
Odgovor na temu

drdrksa

Član broj: 1077
Poruke: 3650



+6 Profil

icon Re: Program/scripta za mass download30.08.2004. u 20:00 - pre 194 meseci
Not now, John!, najprostije, a radi posao. Tnx a lot.
 
Odgovor na temu

random
Vladimir Vrzić
Beograd

Član broj: 85
Poruke: 3866
*.f.bg.ac.yu

Sajt: www.last.fm/user/vrza


+4 Profil

icon Re: Program/scripta za mass download30.08.2004. u 23:29 - pre 194 meseci
curl ima opciju da se neki deo URL-a automatski menja (recimo broj da se inkrementira).
int rand(void);

Those who do not understand Unix are condemned to reinvent it, poorly.

Upali lampicu — koristi Jabber!
 
Odgovor na temu

Nemanja Jakovljevic

Član broj: 940
Poruke: 707
*.ptt.yu



+39 Profil

icon Re: Program/scripta za mass download31.08.2004. u 21:55 - pre 194 meseci
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
Nemanja Jakovljevic
 
Odgovor na temu

[es] :: Skript jezici :: Program/scripta za mass download

[ Pregleda: 2350 | Odgovora: 6 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.