[B] porndump.pl

[cTPu1bjo]

Wieso nimmst du Perl wenn du Function Calls wie system() benutzt? Das ist nicht nur total unsauber sondern auch absolut überflüssig, wenn du schon was mit Sockets machst.
Perl ist nicht dazu da um externe Tools wie wget zu wrappen... Programmier sowas lieber in Bash ...

[Bonkers]

Hatte ich erst auch vor, aber war mir dann doch zu umständlich noch auf Bash umzusteigen. Ich hatte ja ursprünglich nichtmal vorher überhaupt was zu scripten.
Videos kannst du übrigens auch dumpen, ist kein Problem. Wenn jemand interesse hat schreibe ich das kurz um

[newkaiza]

Ich bezieh mich da auch auf h0yt3rs aussage ...
den http request hätteste einfach mit LWP(UserAgent) machen können, genauso wie das mit dem WGET, wofür benutzt du wget?
Den Useragent kannst du auch in perl angeben, das ist kein problem
bsp:
my $b = LWP::UserAgent->new(agent => 'whatever');

Einfach nur mal ein bisschen lesen, wenn ich die tage mal zeit hab überarbeite ichs vllcht, (langeweile vorrausgesetzt)

[blubbblubb]

naja ich dachte mein post zählt schon als interesse an den videos, vllt auch ne Abfrage am anfang einbauen, dann brauch man nicht 2 scripts

[Bonkers]

@blubb{2,} Ich code das dann neu mit ner Auswahl, allein schon um das mit LWP mal auszuprobieren.
@hoyter und newkaiza, Danke für den Hinweis.

Soo...

Neues Skript, mögen Hoyter und co es mal bewerten
Hab mir Mühe gegeben es so professionell wie möglich zu gestalten...

http://nopaste.info/6b430e2fbe.html

Viel Spaß!

[kalachnikov]

"has too many errors"
Script wird nicht gestartet..
Braucht man irgendwie besondere Libaries? Wieso hast du das net mit wget gemacht?

[Bonkers]

Nimm mal strict raus, bei mir funktioniert es auf 2 Systemen perfekt.

[kalachnikov]

Scalar found where operator expected at line 10, near "10. $|"
(Missing operator before $|?)

Number found where operator expected at line 16, near "16."
(Missing semicolon on previous line?)

Bareword found where operator expected at l line 16, near "16. header
(Missing operator before header?)

Scalar found where operator expected at line 19, near "19. $cat"
(Missing operator before $cat?)

Scalar found where operator expected at line 20, near "20. $cat"
(Missing operator before $cat?)

Vielleicht hilft dir das weiter..

[Bonkers]

Kann ich leider überhaupt nicht nachvollziehen.
Haste auch richtig kopiert?

[kalachnikov]

danke für den Hinweis...hat sich erledigt!