#!usr/bin/perl
$fichier=”c:/test”;
# Ouvrir un encodé en utf
open(FH, “< :encoding(UTF-8)", $fic
#!usr/bin/perl
$fichier=”c:/test”;
# Ouvrir un encodé en utf
open(FH, “< :encoding(UTF-8)", $fic
########### pack et unpack #################
# pack(): reçoit une chaîne de Caractères
#
do {
print “Veuillez Taper votre Pattern? “;
chomp($pat = );
eval { “” =~ /$pat/ };
#!/usr/bin/perl
$nombre_simple=3.5;
$nombre_str=”6″;
#L’opération arithmétique convertit $nombre_s
#! /usr/local/bin/perl
use File::Copy;
$rep=”c:/data.txt”;
#Copier et coller le répertoire dans un
#!/usr/local/bin/perl
use strict;
my $y = 1.15470053837925;
my $x = 2.0;
my $conversion = 180 / 3
#!/usr/bin/perl -w
use String::Approx qw(amatch);
open(FH, “c:/test.txt”) # Ouvr
#!/usr/bin/perl -w
$_ = “J’aime Perl version 6 et java version 1.7 pour 2012”;
$count=0;
# Trouv
#!/usr/bin/perl -w
my %mes_villes = (“Allemagne” => “Berlin”,
“France” => ‘Paris’,