in reply to Splitting a string on commas except when inside quotes
Trivial solution using Text::CSV_XS (which is what I would reach for first):
#!/usr/bin/env perl use strict; use warnings; use Text::CSV_XS; my $csv = Text::CSV_XS->new; my $line = '11/21/2022,Payment,"Transfer to Smith, account 2",,USD,,123.60,'; print " $line\n"; $csv->parse ($line); my ( $fDate, $fType, $fDetails, $fRef, $fCurrency, $fAmount, $fPaidOut, $fFees ) = $csv->fields; printf("\n Date: %s; Type: %s; \n" ." Details: %s\n Reference: %s\n" ." Currency: %s; Amount: %s; PaidOut: %s; Fees: %s;\n", $fDate, $fType, $fDetails, $fRef, $fCurrency, $fAmount, $fPaidOut, $fFees );
Enjoy.
🦛
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Splitting a string on commas except when inside quotes
by Tux (Canon) on Jan 02, 2023 at 17:11 UTC |
In Section
Seekers of Perl Wisdom