FAQ PerlConsultez toutes les FAQ

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#!/usr/bin/perl 
use warnings; 
use 5.12.0; 
  
afficher_bonjour('CLaudeLeLoup'); 
lister_fichiers('C:/'); 
afficher_bonjour('perl'); 
  
  
sub afficher_bonjour { 
  my ($prenom) = @_; 
  
  say "Bonjour $prenom"; 
} 
  
sub lister_fichiers { 
  my @arguments = @_; 
  
  say "Procedure : lister_fichiers"; 
  # implémentation inachevée 
  ... 
}

1
2
3
Bonjour CLaudeLeLoup 
Procedure : lister_fichiers 
Unimplemented at C:\Documents and Settings\user\Bureau\test.pl line 23.

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $prix; 
my ($prix1, $prix2) = (1000, 2000); 
if ( defined $prix1 ) {  
  $prix = $prix1;  
} 
else { 
  $prix = $prix2;  
}

1
2
3
4
5
6
7
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $prix; 
my ($prix1, $prix2) = (1000, 2000); 
$prix = defined $prix1 ? $prix1 : $prix2;

1
2
3
4
5
6
7
#!/usr/bin/perl 
use warnings; 
use strict; 
  
my $prix; 
my ($prix1, $prix2) = (1000, 2000); 
$prix = $prix1 // $prix2;

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl 
use warnings; 
use strict; 
use 5.10.0; 
  
  
my @fruits = qw< pomme orange kiwi fraise >; 
my %personnes = ( 
  'paris'  => '75', 
  'rennes' => '35', 
  'reims'  => '51', 
  'lyon'   => '69', 
); 
my $ref_hash = \%personnes; 
my @villes = qw / paris rennes reims lyon/; 
my $nombre1 = 12.35; 
my $nombre2 = 12.35000; 
if ( %personnes ~~  @fruits ) { 
  print "\%personnes et \@fruits identiques\n"; 
} 
if ( %personnes ~~  @villes ) { 
  print "\%personnes et \@villes identiques\n"; 
} 
if ( %personnes ~~  $ref_hash ) { 
  print "\%personnes et \$ref_hash identiques\n"; 
} 
if ( @villes ~~  @fruits ) { 
  print "\@villes et \@fruits identiques\n"; 
} 
if ( $nombre1 ~~  $nombre2 ) { 
  print "\$nombre1 et \$nombre2 identiques\n"; 
}

1
2
3
%personnes et @villes identiques 
%personnes et $ref_hash identiques 
$nombre1 et $nombre2 identiques