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 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
| #!C:/Perl/bin/perl.exe
use strict;
use warnings;
use Socket;
my ($serveur,$ipServ,$paddr,$proto);
my $port =80;
my $texte = "hello bob";
$serveur='localhost';
$ipServ=gethostbyname($serveur);
$proto = getprotobyname('tcp');
$paddr = (sockaddr_in( $port, INADDR_ANY )or die ("impossible"));
socket( SOCK, PF_INET, SOCK_STREAM, $proto ) or die "socket: $!";
bind (SOCK,$paddr)|| die ("Liaison impossible.\n");
listen (SOCK, 1)|| die ("Liaison impossible.\n");
my $client=accept(CLI,SOCK);
print CLI $texte; #<==== ICI
while (my $line = <CLI>) {
print $line;
}
print "Connection acceptee ";
<stdin>;
close SOCK;
close CLI;
exit; |
Partager