http://www.google.com/notebook/feeds/05371167392778299650/notebooks/BDRRESwoQhIza5LYh/NDSUDSwoQwtHXhbch2006-05-26T12:40:37.826Z2008-04-03T15:06:05.561ZPAR
http://articles.mongueurs.net/magazines/
Record Separator RS $/="" ...<p>
<a href="http://par.perl.org/index.cgi">PAR</a><br>
<a href="http://articles.mongueurs.net/magazines/">http://articles.mongueurs.net/magazines/</a><br>
<b>Record Separator RS<br>$/=""<br><br>Ouvrir un fichier unicode</b><br>
open(FH, "< :encoding(UTF-8)", $_)<br><b>Ouvre et écrit en unicode</b><br>use open ':utf8'; <br></p><p>
<b>Tranche de ligne (imprimer ou stocker)</b><br>
print @F[1,3];<br>
print @F[1 .. @F];<br>$ligne = "@F[1 .. @F]";</p><p>
<b> Format Mac </b><br>
$/ = "\x0d";</p><p>
<b> Imprimer sur la sortie standard (entrée standard: STDIN) </b><br>
print STDOUT "bonjour" </p><a href="http://www.google.com/notebook/static_files/blank_quirks.html"></a><p>
<b> Selectionner une sortie </b><br>
select LOG <br>
print "bonjour"; </p><a href="http://www.google.com/notebook/static_files/blank_quirks.html"></a><p>
<b> Parcourir un tableau </b><br>
foreach $i (@a){} <br>
for ($i=0;$i<@a;$i++){ </p><a href="http://www.google.com/notebook/static_files/blank_quirks.html"></a><p>
<b> Parcourir un hachage </b><br>
foreach $i (keys %a){} <br>
while (($key,$value) = each(%a){}<br><br><b>Nombre d'entrées dans un hachage </b><br>
$num_Cara = scalar keys %hach; <br></p><p><b>Parcourir toutes les lettres d'une chaîne</b><br>@Lettres = split("",$F[0]);<br>for ($i=0;$i<@Lettres;$i++){ } <br><br> </p>pandelis