Perl codes and news

#!/usr/bin/perl -w

# Le bloc nu exécute une seule fois son contenu
# et limite la portabilités de s

#!/usr/local/bin/perl


my %hash = ("a" => 1, "b" => 2, "c" => 3);

# retourner le nombre de clé d'

#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			 

# utilise $b si $b est true sinon $c
$a = $b || $c;


# Assigner $b à $a à moins que  $a soit déj

#!/usr/bin/perl -w

# définition d'un Hash
%mon_hash = ( "Janvier"  => 31,
          	  "Février"  =

#!/usr/local/bin/perl

use strict;

my $hi="Fan de perl, Bienvenu sur perl.mesexemples.com";

# Tro

#!/usr/local/bin/perl

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

#!/usr/local/bin/perl -w
#####################sprintf###############
# La fonction sprintf fonctionn

$c = 5;
$d = 5;

printf("Avant Post-incrémentation c=%dn",$c);
#Post-incrémentation de $c
printf(

#!/usr/bin/perl

@tab = (1, 2, 3, 4, 5);

foreach $elem (@tab)
{
    $elem--;   #Soustraire 1 dans c