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
|
#!/usr/bin/perl -w
#servhello.pl
use strict;
use diagnostics;
diagnostics::enable();
use IO::Socket;
my $port=$ARGV[0];
my $server = IO::Socket::INET->new(LocalPort => $port,
Type => SOCK_STREAM,
Listen => 5)
|| die "Cannot initialize server: $!";
my $client = $server->accept();
print $client "Bonjour, utilisateur de ", $client->peerhost(),
" appelant du port : ", $client->peerport(),"\n";
$client->close();
#---------------------
#!/usr/bin/perl -w
#clienthello.pl
use strict;
use diagnostics;
diagnostics::enable();
use IO::Socket;
my $hoteserv=$ARGV[0];
my $portserv=$ARGV[1];
my $request=$ARGV[2];
my $server = IO::Socket::INET->new(PeerPort => $portserv,
PeerAddr => $hoteserv,
Type => SOCK_STREAM,
)
|| die "Cannot connect server: $!";
print $server $request;
print $server "\n";
print $request, "envoyé\n";
my $reponse=<$server>;
$reponse =~ s/[\r\l\n]//g;
print $reponse,"\n"; |
Partager