Exemple des Opérateurs de décalge binaire

Author:
#!/usr/bin/perl
 
$bin=8;              # 1000
$nombre = $bin << 1; # décalage de 1 bit à gauche
prin