Comment créer un fichier CSV avec Perl?

Question

Je veux créer un fichier CSV en utilisant Perl et y écrire des données. Y'a-t'il un quelconque moyen d'y arriver?

Answer 1

Vous pouvez utiliser Classe: CSV .

use Class::CSV;

my $csv = Class::CSV->new(
  fields         => [qw/userid username/]
);

$csv->add_line([2063, 'testuser']);
$csv->add_line({
  userid   => 2064,
  username => 'testuser2'
});

$csv->print();

# 2063,testuser
# 2064,testuser2

Edit : Pour plus de bibliothèques, vous pouvez rechercher CPAN .

Answer 2

Nous utilisons généralement Text::CSV_XS (dont le susmentionné Class::CSV est basé sur)

MISE À JOUR: Les commentateurs ci-dessous suggèrent également d'utiliser Text::CSV qui chargera Text::CSV_XS ou, si ce n'est pas disponible, revenez sur Text::CSV_PP qui n'a pas de dépendance XS et peut être plus facile à installer.