Perl codes and news

#!/usr/bin/perl -w


  use Tie::File;
  use Fcntl;

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

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

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

use Math::Complex;

my $x = Math::Complex->new(3,5);      #Nombre complexe
my $y = Math::Complex-

 #!/usr/local/bin/perl
 eval
 {
while(<>) {
    print "Tapez quelque chose...";
    alarm(5);
}
  }

#!/usr/local/bin/perl -w


use Class::Struct;          # Charger le module des structures

struct Pe

#!/usr/local/bin/perl -w
package Personne ;
################# Classe ##############
# En perl, une c

#!/usr/local/bin/perl -w

package Personne;  
sub new {
    my $self = { };
    bless($self);

    #

#!/perl/bin
use DBI;
use strict;

# Ouvrir une connexion sur la base de données MySQL 'Ventes'
my $d

#!/perl/bin

use DBI;
use strict;

# Ouvrir une connexion sur la base de données MySQL 'Ventes'
my $

#!/perl/bin
use DBI;
use strict;

# Ouvrir une connexion sur la base de données Oracle 'Ventes'
my $