FAQ PerlConsultez toutes les FAQ

1
2
3
4
#!/usr/bin/perl 
package essai; 
print "Bonjour tout le monde !\n"; 
1;

1
2
3
4
5
6
#!/usr/bin/perl 
  
use warnings; 
use strict; 
print "Au revoir !\n"; 
use essai;

1
2
3
4
5
#!/usr/bin/perl 
use warnings; 
use strict; 
print "Au revoir !\n"; 
require essai;

1
2
3
4
5
6
7
8
9
10
#!/usr/bin/perl 
use warnings; 
use strict; 
  
sub longueur { 
  my ($seq) = @_; # récupération de la séquence à traiter 
  my $lg = length $seq; 
  print "c'est une séquence de longueur $lg\n"; 
} 
1;  #obligatoire dans les modules en fin de programme.

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl 
  
use warnings; 
use strict; 
use lib './repertoire_module';  #mon module se trouve dans le répertoire "repertoire_module" 
use mon_module;=>utilisation du module "mon_module" 
  
my $seq = "ATCGTGC";  
  
#utilise la fonction &longueur de mon module 
&longueur($seq); 
print "c'est ok !";

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use File::Basename; 
  
my $file     = '/home/gldavid/djibril.secrets'; 
my $basename = basename $file; 
print "$basename\n";