Thread Abruf von https://yt-dl.org scheitert
(19 answers)
Opened by bianca at 2021-07-04 10:15
Gute Morgen!
Anfang der Woche hat ein Blitz meine FRITZ!Box und einen Switch geknutscht. Da der Markt leer gefegt ist musste ich mir temporär einen DSL-Router von TP-Link holen. Und damit zeitgleich funktioniert auch der Abruf von https://yt-dl.org/ mit Perl nicht mehr. Ich weiß zwar noch nicht ob und wie das zusammenhängt aber das muss ja raus zu kriegen sein. Also auf ein und der selben Kiste: Perl: nein, Browser: ja Script: Quote Kann bitte die/der ein oder andere dieses Script laufen lassen und hier posten. Und vielleicht hat auch jemand einen Tipp in welche Richtung ich nach dem Fehler suchen muss. Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 #!/usr/bin/perl use strict; use warnings; require IO::Socket::SSL; require LWP::UserAgent; use 5.010; say "\n\n\nSTART\n"; say "Perl: ".$]; say "IO::Socket::SSL: ".IO::Socket::SSL->VERSION; say "LWP::UserAgent: ".LWP::UserAgent->VERSION; $IO::Socket::SSL::DEBUG = 3;$IO::Socket::SSL::DEBUG = 3; # doppelt sonst Name "IO::Socket::SSL::DEBUG" used only once: possible typo at test.pl line 13. foreach my $url ('https://google.de','https://yt-dl.org') { # google als Test der generellen Funktionstüchtigkeit say "\n\nAbruf $url\n"; my $ua = LWP::UserAgent->new; my $response = $ua->get($url); if (!$response->is_success) { say "\nFehler: ".$response->status_line; exit; } else { say "\nerfolgreich"; } } say "\nFERTIG"; Danke! 10 print "Hallo"
20 goto 10 |