fsockopen Äquivalent perl

Question

Ich habe gerade ein Problem mit meinem ISP, die es scheint, verweigert mir zu erlauben, fsockopen mir ein Sicherheitsrisiko zu nennen und ich muss eine Alternative finden, die darauf hindeutet, dass ich Perl verwende.

Hat jemand eine Alternative zu fsockopen möglicherweise mit Perl für das Skript unten?

<?php 

// fetches server information from minequery. 
function fetch_server_info($ip, $port){ 
    $socket = fsockopen($ip, $port, $errno, $errstr, 0.5); 

    if($socket === false){ 
     return false; 
    } 

    fwrite($socket, "QUERY_JSON\n"); 

    $responce = stream_get_contents($socket); 

    return json_decode($responce, true); 
} 

?> 

Answer 1

Es klingt wie Sie die Antwort vom Server in $responce ohne Verwendung eines der Socket-Funktionen in PHP bekommen möchten. Wenn shell_exec() von Ihrem Hosting-Provider aktiviert wird, können Sie stattdessen ein externes Programm ausführen. Hier ist ein Beispiel unter Verwendung von Perl:

<?php 

// fetches server information from minequery. 
function fetch_server_info($ip, $port){ 
    $script = <<<'EOF' 
use warnings; 
use strict; 
use IO::Socket; 

die if $#ARGV+1 != 2; 
my $ip = $ARGV[0]; 
my $port = $ARGV[1]; 
my $sock = IO::Socket::INET->new(PeerAddr => "$ip:$port") or die; 
print $sock "QUERY_JSON\n" or die; 
local $/ = undef; 
print <$sock>; 
EOF; 

    $responce = shell_exec("echo '$script' | perl - $ip $port"); 

    if ($responce == NULL) 
     return false; 

    return json_decode($responce, true); 
} 

$> 

Oder Sie könnten netcat verwenden, wenn sie es haben:

<?php 

// fetches server information from minequery. 
function fetch_server_info($ip, $port){ 
    $responce = shell_exec("echo QUERY_JSON| nc $ip $port"); 

    if ($responce == NULL) 
     return false; 

    return json_decode($responce, true); 
} 

$>