Perl codes and news

sub trim
{
    my @out = @_;
    for (@out) {
        s/^s+//;          # Espace à gauche
        

# définition de deux tableaux
@tab_a = ( -1, 52, .5, 3.5 );
@tab_b = ( 0, 10, -5, 1 );

foreach $el

#!/usr/bin/perl -w

$i = 0;

while ($i < 10)
 {
   print "Iteration $i.n";

} continue
{           

#!/usr/bin/perl -w

my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    	

 #!/usr/bin/perl -w

  use strict;
  use IO::Socket;

  my ($sock,   # Socket
      $serv_msg, # mes

#!/usr/local/bin/perl -w

package Personne;
use strict;

sub new {
    my $self = { };
    bless($se

    #!/usr/local/bin/perl -w

    for (;;)
    {
       print "Vous entrez dans un cycle..........

#!/usr/bin/perl -w

$a = "al";
#Incrémenter la chaîne et afficher le résultat
print ++$a, "n";   

#!/usr/bin/perl

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

#!/usr/local/bin/perl

# trouver la valeur maximale d'une liste de valeur
sub find_max
 {
  my($peu