Re^8: Perl custom sort for Portuguese Lanaguage

The meta info knows whether the field was quoted or not.

#!/usr/bin/perl
use warnings;
use strict;

use Text::CSV_XS;

my $csv = 'Text::CSV_XS'->new ({ binary         => 1,
                                 auto_diag      => 1,
                                 keep_meta_info => 1 });
open my $in, '<:encoding(utf8)', shift or die $!;
while (my $row = $csv->getline($in)) {
    next if $row->[0] =~ m/^#/ && ! $csv->is_quoted(0);

    $csv->say(*STDOUT, $row);
}
[download]

Tested with

#x,y,z skip
abc,"d
#e
f",ghi keep
#comment skip
a,b,c,#xyz keep
"#foo",x,y,z keep
[download]

map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]

Comment on Re^8: Perl custom sort for Portuguese Lanaguage Select or Download Code

Replies are listed 'Best First'.
Re^9: Perl custom sort for Portuguese Lanaguage by haukex (Archbishop) on Jul 09, 2020 at 06:06 UTC
The meta info knows whether the field was quoted or not. True, though AFAICT the `meta_info` doesn't seem to keep track of escaped characters: `use warnings; use strict; use Data::Dump; use Text::CSV; my $csv = Text::CSV->new({ binary=>1, auto_diag=>2, keep_meta_info=>1, escape_char=>"\\" }); while ( my $row = $csv->getline(*DATA) ) { dd $row, $csv->meta_info; } $csv->eof or $csv->error_diag; __DATA__ foo,bar "#foo","bar" #foo,bar \#foo,bar` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^9: Perl custom sort for Portuguese Lanaguage
by haukex (Archbishop) on Jul 09, 2020 at 06:06 UTC

The meta info knows whether the field was quoted or not.

True, though AFAICT the meta_info doesn't seem to keep track of escaped characters:

use warnings;
use strict;
use Data::Dump;
use Text::CSV;

my $csv = Text::CSV->new({ binary=>1, auto_diag=>2,
    keep_meta_info=>1, escape_char=>"\\" });
while ( my $row = $csv->getline(*DATA) ) {
    dd $row, $csv->meta_info;
}
$csv->eof or $csv->error_diag;

__DATA__
foo,bar
"#foo","bar"
#foo,bar
\#foo,bar
[download]

[reply]
[d/l]
[select]