Différences

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

--- all:bibles:langages:perl [2026/03/30 15:41] – [Fichiers textes] omeylhoc
+++ all:bibles:langages:perl [2026/04/02 15:29] (Version actuelle) – [Installation manuelle] omeylhoc
@@ 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>