"to be able to sort alphabetically 2 columns"

Hi, it's not completely clear what you want. Maybe it's as simple as the following, which sorts by column 1 and if there multiple instances of a value, then by column 3. See sort.

use strict;
use warnings;
use Text::CSV_XS 'csv';

my $aoa = csv( in => *DATA );
my @headers = shift @$aoa;

my @sorted = sort { $a->[0] cmp $b->[0] || $a->[2] cmp $b->[2] } @$aoa
+;

csv( in => \@sorted, headers => @headers );

__DATA__
column1,column2,column3
b,foo,v
a,bar,y
c,baz,w
b,qux,z
b,nif,x
[download]

Output:

column1,column2,column3
a,bar,y
b,foo,v
b,nif,x
b,qux,z
c,baz,w
[download]

Hope this helps.

Update: added link to doc

Hi,

This is exactly what I wanted to do. I'll add it in my complete script.
Thank you again very much for your help.

Regards.

Xuo.

Hi,

Everything works fine now.
I still have one question : how to redirect the output of the csv module :
ex : csv (in => $aoh, headers => \@nh);
to a file instead of stdout ?

Regards.

Xuo.

See the documentation for "out".



The way forward always starts with a minimal test.