#!/usr/bin/perl -w use strict; use IO::Socket; # Usage: # # client.pl [ (--exit|-e)] [ ] [ ] # client.pl [ -h ] [ --help ] my $filename = "client.pl"; my $help = " Usage $filename [ ] [ ] Options ( -P | --port ) Port to listen ( -p | --protocol ) Set a protocol (tcp, udp, ...). Default is \"tcp\" (…)
Forum Programmation.perl caractères invisibles dans une chaîne (sockets)
3
juil.
2004
Je vais toujours poster le code source du serveur (le client, cest telnet):