URL: https://linuxfr.org/forums/programmation-perl/posts/php-client-perl-serveur-communication-socket
Title: PHP client -> Perl serveur (communication socket)
Authors: David
Date: 2012年05月24日T12:14:38+02:00
Tags: php, perl et socket
Score: 1
Bonjour
J'aimerais faire appel à un script PERL qui écoute sur un port via un script PHP. Je ne suis pas loin du résultat (test pour le moment)
Le problème est que ma page php (pour le moment lancé en CLI) bloque au socket_read() . A savoir que sur le serveur quand je remplace <$client> par "toto" ça roule de bout en bout mais dès que j'essaye de lire <$client> ça bloque... 
Une idée lumineuse? Une piste?
Note : j'ai fait un client Perl pour tester le serveur Perl et ça communique bien...
Le client (PHP) :
 <?php /* Get the port for the WWW service. */ $service_port = 6969; /* Get the IP address for the target host. */ $address = '127.0.0.1'; /* Create a TCP/IP socket. */ $socket = socket_create(AF_INET, SOCK_STREAM, SOL_TCP); if ($socket === false) { echo "socket_create() failed: reason: " . socket_strerror(socket_last_error()) . "\n"; } else { echo "OK.\n"; } echo "Attempting to connect to '$address' on port '$service_port'..."; $result = socket_connect($socket, $address, $service_port); if ($result === false) { echo "socket_connect() failed.\nReason: ($result) " . socket_strerror(socket_last_error($socket)) . "\n"; } else { echo "OK.\n"; } $in = "test"; $out = ''; socket_write($socket, $in, strlen($in)); #while ($out = socket_read($socket, 2048)) { # echo $out; #} $out = socket_read($socket, 3000); echo $out; socket_close($socket); echo "Fin"; ?>
Le serveur (Perl) : 
 #!/usr/bin/perl
 
 use warnings;
 use IO::Socket;
 use Net::hostent;
 
 # Variable 
 my $PORT = 6969;
 my $RESTRICTION_HOST="localhost"; 
 
 sub logmsg { print "[", scalar localtime, "] - [$$] : @_ \n" }
 
 sub start {
 
 	my $serveur = IO::Socket::INET->new(LocalPort => $PORT,
 										Type => SOCK_STREAM,
 										Reuse => 1,
 										Listen => 10)
 	or die "Impossible serveur tcp sur le port $PORT : $@\n";
 	
 	logmsg "0ドル démarré sur le port $PORT";
 
 	while (my $client = $serveur->accept()) {
 		$hostinfo = gethostbyaddr($client->peeraddr);
 		# Sécurité
 		if ($hostinfo->name ne $RESTRICTION_HOST)
 		{
 			print $client "Accès refusé, Contactez votre administrateur réseau.\n";
 			logmsg "[HACK] Tentative de connexion via ", $hostinfo->name;
 			close $client;
 		}
 		else
 		{
 			if (my $pid = fork)
 			{
 				close($serveur);
 				logmsg "Debut de connexion via ", $hostinfo->name;
 			
 				# Avec ça le client bloque...
 				my $arg = <$client>;
 				# Avec ça le client tourne
 				#my $arg = "toto";
 				logmsg "argument client : $arg";
 				my $retour = `id`;
 				# Envoi du retour sur le client
 				print $client $retour;
 			
 				close($client);
 				logmsg "Fin de connexion via " , $hostinfo->name; 
 			}
 		}
 	}
 	$SIG{CHLD} = 'IGNORE';
 }
 
 start();
 
 __END__
 
</div><div class="naked_ctrl">
<form action="/index.cgi/contrast" method="get" name="gate">
<p><a href="http://altstyle.alfasado.net">AltStyle</a> によって変換されたページ <a href="httpS://linuxfr.org/forums/programmation-perl/posts/php-client-perl-serveur-communication-socket.md">(-&gt;オリジナル)</a>
/ <label>アドレス: <input type="text" name="naked_post_url" value="httpS://linuxfr.org/forums/programmation-perl/posts/php-client-perl-serveur-communication-socket.md" size="22" /></label> <label>モード: <select name="naked_post_mode">
<option value="default">デフォルト</option>
<option value="speech">音声ブラウザ</option>
<option value="ruby">ルビ付き</option>
<option value="contrast" selected="selected">配色反転</option>
<option value="larger-text">文字拡大</option>
<option value="mobile">モバイル</option>
</select>
<input type="submit" value="表示" />
</p>
</form>
</div>