Thread Abruf von https://yt-dl.org scheitert (19 answers)
Opened by bianca at 2021-07-04 10:15

bianca
 2021-07-04 10:15
#193397 #193397
User since
2009-09-13
6823 articles
BenutzerIn

user image
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
Abruf https://yt-dl.org/

DEBUG: .../IO/Socket/SSL.pm:3010: new ctx 62781456
DEBUG: .../IO/Socket/SSL.pm:762: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:1177: global error: Undefined SSL object
DEBUG: .../IO/Socket/SSL.pm:1177: global error: Undefined SSL object
DEBUG: .../IO/Socket/SSL.pm:762: socket not yet connected
DEBUG: .../IO/Socket/SSL.pm:1177: global error: Undefined SSL object
DEBUG: .../IO/Socket/SSL.pm:1177: global error: Undefined SSL object
DEBUG: .../lib/Net/HTTPS.pm:67: local error: IO::Socket::IP configuration failed
DEBUG: .../IO/Socket/SSL.pm:3059: free ctx 62781456 open=62781456
DEBUG: .../IO/Socket/SSL.pm:3063: free ctx 62781456 callback
DEBUG: .../IO/Socket/SSL.pm:3070: OK free ctx 62781456
Fehler: 500 Can't connect to yt-dl.org:443 (Bad address)


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

View full thread Abruf von https://yt-dl.org scheitert