Ci-dessous, les différences entre deux révisions de la page.
| — | bac_a_sable [Y/m/d H:i] (Version actuelle) – créée - modification externe 127.0.0.1 | ||
|---|---|---|---|
| Ligne 1: | Ligne 1: | ||
| + | ====== Le Bac A Sable ====== | ||
| + | |||
| + | Ici vous pouvez tester toutes les fonctionnalités du wiki sans rien casser d' | ||
| + | |||
| + | documentation sur la syntaxe du wiki : [[http:// | ||
| + | |||
| + | |||
| + | ===== Allez Y ===== | ||
| + | |||
| + | |||
| + | test syntaxe highlighting: | ||
| + | <code perl> | ||
| + | # | ||
| + | |||
| + | |||
| + | |||
| + | open (FICIN,"< | ||
| + | |||
| + | |||
| + | while (< | ||
| + | { | ||
| + | chomp; | ||
| + | $ligne = $_; | ||
| + | @l = split (" ", | ||
| + | $inode = $l[0]; | ||
| + | $nomfic = $l[1]; | ||
| + | |||
| + | push @{$tabinode{$inode}}, | ||
| + | |||
| + | } | ||
| + | |||
| + | |||
| + | foreach $inode (keys %tabinode) { | ||
| + | if (@{$tabinode{$inode}} >= 2) | ||
| + | { | ||
| + | print "LNK : $inode : @{$tabinode{$inode}}\n"; | ||
| + | } else { | ||
| + | print " | ||
| + | } | ||
| + | } | ||
| + | |||
| + | </ | ||