Powered by Ajaxy
Digg StumbleUpon LinkedIn YouTube Flickr Facebook Twitter RSS Reset

Perl: Trouver la fin d’une chaîne de caractères

 #!/usr/local/bin/perl -w
 
 LINE:
while (my $ligne = <>) {
next LINE if $ligne

Afficher l’équivalent décimal d’un nombre binaire

#!/usr/bin/perl
 
print 0b11111111, "n";   # 255
 
print 0b10000000, "n";   # 128
 
print 0b01000000,

Exemple des opérations binaires logiques

#!/usr/bin/perl -w
 
$nombre = 42 &#038; 18;       # Opérateur AND de bit
print "1:# $nombren";   # $nomb

Additionner un nombre avec un string

$text = "hello";
$text += 1;     # La chaîne est ignorée
print $text;

Exemple des Opérateurs de décalge binaire

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

Exemple des opérateurs binaires sur une chaîne de caractères

#!/usr/bin/perl -w
 
 
$text = 'aa' | 'bb';
print "$textn";     # 'cc'
 
$text = 'cc' &#038; 'gg';
print "$

Conversion automatique d’un string en un nombre

#!/usr/bin/perl
 
$nombre_simple=3.5;
$nombre_str="6";
 
#L'opération arithmétique convertit $nombre_s

Concaténation d’une chaîne de caractères avec un nombre

 
$text = "Perl version ";
$nombre = 6.0;
 
# Concatener  la chaîne avec le nombre
$concat =$text . $

Perl: Générer des nombres aléatoires

#!/usr/bin/perl
 
for $x (0..9)
{
# génération des nombres aléatoires entre 1 et 9
$random = int( ran

Exemple d’utilisation d’une chaîne de caractères dans une opération mathématique

#!/usr/bin/perl -w
use warnings;
 
$str= "5 Livres";
 
# Seule la prtie numérique de la chaîne $str es