Perl codes and news

#!/usr/local/bin/perl

$x = 1;

if($x)
{
  # Expression
}
elsif($x)
{
  # Expression
}
elsif($x)
{

#!/usr/bin/perl -w

# Le modificateur 'until' s'applique à l'expression qui le précède

$i *= 2 unti

#! /usr/bin/perl#


$n= -5;

# Le modificateur 'if' s'applique à l'expression qui le précède
print 

#! /usr/bin/perl#

# On utilise cette boucle pour inverser la condition
# d'une boucle while

until 

#!/usr/bin/perl

$hexadecimal="0x2e"   ;
$nombre = hex($hexadecimal);         #47
print $nombre,"n"

#!/usr/bin/perl

use warnings;

@tab = qw( janvier février mars avril mai juin );
print "@tabn";

#

#!/usr/bin/perl -w
use warnings;

@chars = ( "A" .. "Z", "a" .. "z", 0 .. 9, qw(! @ $ % ^ & *) );
$p

#!/usr/bin/perl

# Déclarer le subroutine sans aucune définition
sub etudiant (Str $nom, Int $age) {

#!/usr/bin/perl
############# Subroutine #############
# le mot subroutine en anglais sous-programme

#!/usr/bin/perl
############# Subroutine #############
# le mot subroutine en anglais sous-programme