Changes between Version 12 and Version 13 of PerlInitiation


Ignore:
Timestamp:
Jul 3, 2006, 12:18:41 AM (14 years ago)
Author:
Vincent Caron
Comment:

--

Legend:

Unmodified
Added
Removed
Modified
  • PerlInitiation

    v12 v13  
    9595$nombre = 42;
    9696$mot = "bonjour";
    97 $egal = ($nombre == 42);
    98 $equivalent = ($mot eq 'bonjour');
     97if ($nombre == 42) { print "Egalité\n"; }
     98print "Egalité\n" if $nombre == 42;
     99if ($mot eq 'bonjour') { print "Equivalence\n"; }
    99100}}}
    100101
     
    104105{{{
    105106@liste = qw/Hello world !\n/;
     107@liste = split(/ /, "Hello world !\n");
    106108}}}
    107  *
     109 * Extraire une partie de la liste (voir ''splice'' également):
     110{{{
     111@extrait = @liste[1..2]; # world, !\n
     112}}}
     113 * Extraire les éléments d'une liste (vers des scalaires):
     114{{{
     115($debut, undef, $fin) = @hello;
     116}}}
     117 * Concaténer les éléments d'une liste (dans un scalaire):
     118{{{
     119$phrase = join(' ', @mots);
     120}}}
     121 * Parcourir les éléments d'une liste:
     122{{{
     123foreach $mot (@hello) { print "$mot"; }
     124foreach (@hello) { print $_; }
     125foreach (@hello) { print }
     126print foreach @hello;
     127}}}
     128
     129=== Manipulation des hashes ===
     130