Re: Converting File Delimiters

[BrowserUk]

in reply to Converting File Delimiters

$s = 'aaa,bbb,"ccc, ddd", fff';

print join '|', $s =~ m[("[^"]+"|[^,]+)]g;
aaa|bbb|"ccc, ddd"| fff

[frozenwithjoy]

That is so much nicer than what I came up with, but I'll add mine, too (otherwise it would have felt like a total waste of time):

#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';

my $string = qq(aaa,bbb,"ccc,ddd",fff,ggg,"hhh,iii",jjj);
my @split_on_comma = split /,/, $string;

my @quoted;
my @ready_to_join;
for (@split_on_comma) {
    if ( /^"/ .. /"$/ ) {
        s/"//g;    #remove this if you actually want "s in your output
        push @quoted, $_;
    }
    else {
        push @ready_to_join, join ',', @quoted if scalar @quoted;
        @quoted = ();
        push @ready_to_join, $_;
    }
}
my $pipe_delim = join '|', @ready_to_join;

say $pipe_delim;

Output: aaa|bbb|ccc,ddd|fff|ggg|hhh,iii|jjj

[mmueller44]

This code is what I want, but how do I get it to use a file for input and output?

I have tried various revisions but not having any luck

Thanks, Mike

[BrowserUk]

The above as a one-liner

perl -ple"$_ = join '|', m[(\x22[^\x22]+\x22|[^,]+)]g" in.csv > piped.
+csv

[hbm]

On a client's system, where I'd have to run the change management gauntlet to install Text::CSV, I remembered this node. I had to adjust it to handle empty numeric fields (,,,):

$_    = '"",,,"abc",0,,';

print join '|', 
      m/
          "[^"]+"        # quoted string
        | [^,]+          # or non-commas
        | (?<=,)(?=,|$)  # or nothing, surrounded by commas or EOL
       /gx;

# prints:
""|||"abc"|0||

[BrowserUk]

Nice extension!