Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Client/Serveur: Création d’un serveur pour échanger avec les connexions des clients

#!/usr/local/bin/perl
   ############## Socket Serveur ################
 
use Socket;
 
my $port_serve

Calculer la différence en nombre de jour entre deux dates

use Date::Calc qw(Delta_Days);
 
@date1 = (2011, 1, 30);        # 30 janvier 2011
@date2  = (1985, 3

Perl: créer un client datagramme pour échanger avec le client

#!/bin/perl -tw
 
my $remote_host="127.0.0.1";      # L'adresse du serveur
my $remote_port=80;

Trouver la date du jour

 
use Time::localtime;
$tm = localtime;
($jour, $mois, $annee) = ($tm->mday, $tm->mon, $tm->year);