# utilise $b si $b est true sinon $c
$a = $b || $c;
# Assigner $b à $a à moins que $a soit déj
# utilise $b si $b est true sinon $c
$a = $b || $c;
# Assigner $b à $a à moins que $a soit déj
#!/usr/bin/perl -w
# définition d’un Hash
%mon_hash = ( “Janvier” => 31,
“Février” =
#!/usr/local/bin/perl
use strict;
my $hi=”Fan de perl, Bienvenu sur perl.mesexemples.com”;
# Tro
#!/usr/local/bin/perl
my %mes_villes = (“Allemagne” => “Berlin”,
“Angleterre” => “Londre”,
#!/usr/local/bin/perl -w
#####################sprintf###############
# La fonction sprintf fonctionn
$c = 5;
$d = 5;
printf(“Avant Post-incrémentation c=%dn”,$c);
#Post-incrémentation de $c
printf(
#!/usr/bin/perl
@tab = (1, 2, 3, 4, 5);
foreach $elem (@tab)
{
$elem–; #Soustraire 1 dans c
#!/usr/bin/perl -w
$text = ‘aa’ | ‘bb’;
print “$textn”; # ‘cc’
$text = ‘cc’ & ‘gg’;
print “$
# Un palindrome est un texte dont la succession des lettres
# est la même quand on la parcourt de
#!/usr/bin/perl
use warnings;
use strict;
use Net::FTP;
my $ftp = Net::FTP->new(“ftp.monserveurFTP