Perl codes and news

#!/usr/local/bin/perl
   ############## Socket Serveur ################

use Socket;

my $port_serve

#!/usr/bin/perl -w

my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "Londre",

#!/usr/bin/perl -w


my @tab1 = (1, 2, 3, 4);       #Définition d'un tableau de 4 éléments
my @tab2;

#!/usr/bin/perl

print 0b11111111, "n";   # 255

print 0b10000000, "n";   # 128

print 0b01000000,

#!/usr/bin/perl -w

$nombre = 42 & 18;       # Opérateur AND de bit
print "1:# $nombren";   # $nomb

# Accéder aux arguments d'un subroutine via leurs numéros
# comme un tableau.

sub division
{
    #

#!/usr/local/bin/perl

while (defined($line = <>))
{
  chomp($line);
  print "Je dis $line!n";
}

#!/usr/local/bin/perl

# Hash2
my %mes_villes = ("Allemagne" => "Berlin",
    			  "Angleterre" => "

$text = "hello";
$text += 1;     # La chaîne est ignorée
print $text;

#! /usr/local/bin/perl

use File::Compare;         #Module de comparaison des fichier

$fichier_1="c