#!/usr/local/bin/perl 

$~ = "MYFORMAT"; 
write; 

format MYFORMAT = 
Here is the text I 

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

#!/usr/bin/perl

###########  Caractères et codes ASCII   #################
#  La fonction built-in 

#!/usr/bin/perl

###########  Sous-chaîne   #################
#  pour retourner une partie de la cha

###########  Puissance   #################
# Pour calculer la puissance on utilise
# l'opérateur '**

foreach $val(1..9)  #Boucle allant de 1 à 9
{
 #Incrémenter et assigner $x

  $x+=$val;
  printf("

$fichier="c:/index.html";

open(FILE, "<", $fichier)
 or die "Impossible d'ouvirir $fichier: $!";
$

#!/usr/bin/perl -w


  use Tie::File;
  use Fcntl;

  # Lire la ligne 2 du fichier test.txt
  @read_

#!/usr/bin/perl

use File::Temp qw(tempfile);

# Créer le fichier temporaire
($fh, $nom_fichier) = t

 ##############Opération sur le fichier ##########
 # Copier et coller un fichier
 #
 
# ouverture d