Différences

Ci-dessous, les différences entre deux révisions de la page.

--- all:bibles:langages:perl [2026/03/12 14:11] – [E/S standard] omeylhoc
+++ all:bibles:langages:perl [2026/04/02 15:29] (Version actuelle) – [Installation manuelle] omeylhoc
@@ Ligne 814: / Ligne 814: @@
 print $OUT "…\n";                          # Ecriture simple dans le fichier
 close(my $OUT);                            # Ferme le fichier.
-while (defined($ligne=<$IN>)) {   }        # Pour être sûr, au cas où une ligne contiendrait undef
+while (defined(my $ligne=<$IN>)) {   }     # Pour être sûr, au cas où une ligne contiendrait undef
 foreach my $ligne (reverse(<$IN>)) { }     # Pour parcourir le fichier à l’envers
 </code>
@@ Ligne 822: / Ligne 822: @@
 <code perl>
 open(my $IN,"< $fichier") || die "Impossible d'ouvrir le fichier $fichier : $!";
-while (defined($ligne=<$IN>)) {
+while (defined(my $ligne=<$IN>)) {
     chomp $ligne;
 }
@@ Ligne 1193: / Ligne 1193: @@
 make test
 make install
+</code>
+==== Text::CSV ====
+Lecture de fichier csv
+<code perl>
+use strict;
+use warnings;
+use Text::CSV;
+my $csv = Text::CSV->new({
+    sep_char => ',',
+    binary => 1,
+    auto_diag => 1,
+});
+open my $fh, '<:encoding(utf8)', 'fichier.csv'
+    or die "Impossible d'ouvrir le fichier: $!";
+# Lire la ligne d'en-tête
+my $headers = $csv->getline($fh);
+$csv->column_names($headers);
+# Lire les données ligne par ligne
+while (my $row = $csv->getline_hr($fh)) {
+    print "Nom: $row->{nom}, Age: $row->{age}\n";
+    # Accès aux colonnes par leur nom d'en-tête
+}
+close $fh;
 </code>