perl -w -e “print(“Bonjour\n);”
my $x; # $x a la valeur undef undef($x); # idem $x = undef; #idem if defined($x) {print 'Bonjour';} # N'affiche rien my $x = 10.2; # $x est un nombre de valeur 10,2 my $x = "Bonjour\t\n"; # $x a 9 caractères : B o n j o u r TAB CR my $x = '$x\t'; # $x a 4 caractères : $ x \ t my $y = "Bonjour $x"; # $y vaut "Bonjour Bonjour\n"
my $x = 2; $x += 3; # $x vaut 5 $x *= 2; # $x vaut 4 $x /= 2 # $x vaut 1 $x -= 2 # $x vaut 0 $x = $x**3 # $x vaut 8