Schnellster öffentlicher Nameserver meines Standortes - #186566 (Netzwerkprogrammierung und Netzwerke mit Perl)

mixxer

2017-05-20 00:13

User since
2016-04-01
25 Artikel
BenutzerIn
[default_avatar]

Vorher:

script.pl (6.4kb):

Code (perl): (dl )

system( qq[wget -nv https://www.ungefiltert-surfen.de/nameserver/ch.txt -O $tmp_file] );
system( qq[cat $tmp_file > $dns_list_file] );
system( qq[echo >> $dns_list_file] );
system( qq[wget -nv https://www.ungefiltert-surfen.de/nameserver/de.txt -O $tmp_file] );
system( qq[cat $tmp_file >> $dns_list_file] );
system( qq[echo >> $dns_list_file] );
system( qq[wget -nv https://www.ungefiltert-surfen.de/nameserver/at.txt -O $tmp_file] );
system( qq[cat $tmp_file >> $dns_list_file] );
system( qq[echo >> $dns_list_file] );
system( qq[rm -f $tmp_file] );

open ( $ax, "<", $dns_list_file );
@$list = <$ax>;
close ( $ax );
chomp ( @$list );

Nachher:

script.pl (2.8kb):

Code (perl): (dl )

use LWP::Simple;
for ( qw[ de ch at ] ) {

    $ax = 'http://www.ungefiltert-surfen.de/nameserver/'.$_.'.txt';
    $bx = get $ax;
    
    die "Konnte $ax nicht laden!" unless defined $bx;
    
    push @$list, split( /\n/, $bx.qq[\n] );
}

:)
Danke!

leider geht mit LWP::Simple kein https aber per http gibts die Dateien zum Glück auch...