Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re^8: Perl custom sort for Portuguese Lanaguage

by choroba (Cardinal)
on Jul 08, 2020 at 21:27 UTC ( [id://11119048]=note: print w/replies, xml ) Need Help??


in reply to Re^7: Perl custom sort for Portuguese Lanaguage
in thread 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]

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]

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://11119048]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others romping around the Monastery: (6)
As of 2024-04-23 14:17 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found