Re^4: Need to sort comma delimited, double quoted file

Can anybody please help, how to handle embedded quotes in this case (with Text::CSV module? See the HTML field below:

7252798,5830,"Glycosylated Haemoglobin (HbA1C) EDTA",1656,"template",,
+"<HTML><HEAD><META NAME=\"GENERATOR\" Content=\"Microsoft DHTML Editi
+ng Control\"><TITLE></TITLE></HEAD><BODY><P>&nbsp;</P></BODY></HTML>"
+,2017-07-23 15:15:27,0,"",N,"",,2017-07-23 15:15:27,MM0165818,6,"All 
+Tests Done and Verified",,MSIN743908,2017-07-22 16:34:07,10,"Max Supe
+r Speciality Hospital-Saket",27,"Poonam S Das",0,"S GUPTA",False,"S",
+"GUPTA",SKMS,355419,21278,"Puneet  Agarwal",1945-01-23 00:00:00,0,NUL
+L,"9810006763","INFO@MAXHEALTHCARE.COM",OP,NO,Verified,2017-07-22 16:
+34:07,2017-07-22 16:34:07,Lab,697693,0,"",M
[download]

Error:

# CSV_XS ERROR: 2023 - EIQ - QUO character not allowed @ rec 1981 pos 110 field 7 Line could not be parsed: Inappropriate ioctl for device2023EIQ - QUO character not allowed11019827

Comment on Re^4: Need to sort comma delimited, double quoted file Download Code

Replies are listed 'Best First'.
Re^5: Need to sort comma delimited, double quoted file by hippo (Archbishop) on Jul 27, 2017 at 08:42 UTC
In the standard fashion as mentioned in the Text::CSV_XS docs: `#!/usr/bin/env perl use strict; use warnings; use Text::CSV_XS; my $csv = Text::CSV_XS->new ({ quote_char => '"', escape_char => '\\' }); open my $fh, "<:encoding(utf8)", "foo.csv" or die "foo.csv: $!"; while (my $row = $csv->getline ($fh)) { print (join "\n", @$row, ""); } close $fh;` [download] Output is: 7252798 5830 Glycosylated Haemoglobin (HbA1C) EDTA 1656 template <HTML><HEAD><META NAME="GENERATOR" Content="Microsoft DHTML Editing Co +ntrol"><TITLE></TITLE></HEAD><BODY><P> </P></BODY></HTML> 2017-07-23 15:15:27 0 N 2017-07-23 15:15:27 MM0165818 6 All Tests Done and Verified MSIN743908 2017-07-22 16:34:07 10 Max Super Speciality Hospital-Saket 27 Poonam S Das 0 S GUPTA False S GUPTA SKMS 355419 21278 Puneet Agarwal 1945-01-23 00:00:00 0 NULL 9810006763 INFO@MAXHEALTHCARE.COM OP NO Verified 2017-07-22 16:34:07 2017-07-22 16:34:07 Lab 697693 0 M [download] No warnings, no errors.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^5: Need to sort comma delimited, double quoted file
by hippo (Archbishop) on Jul 27, 2017 at 08:42 UTC

In the standard fashion as mentioned in the Text::CSV_XS docs:

#!/usr/bin/env perl 
use strict;
use warnings;
use Text::CSV_XS;

my $csv = Text::CSV_XS->new ({
        quote_char => '"',
        escape_char => '\\'
});

open my $fh, "<:encoding(utf8)", "foo.csv" or die "foo.csv: $!";
while (my $row = $csv->getline ($fh)) {
        print (join "\n", @$row, "");
}
close $fh;
[download]

Output is:

7252798
5830
Glycosylated Haemoglobin (HbA1C) EDTA
1656
template
<HTML><HEAD><META NAME="GENERATOR" Content="Microsoft DHTML Editing Co
+ntrol"><TITLE></TITLE></HEAD><BODY><P>&nbsp;</P></BODY></HTML>
2017-07-23 15:15:27
0
N
2017-07-23 15:15:27
MM0165818
6
All Tests Done and Verified
MSIN743908
2017-07-22 16:34:07
10
Max Super Speciality Hospital-Saket
27
Poonam S Das
0
S GUPTA
False
S
GUPTA
SKMS
355419
21278
Puneet  Agarwal
1945-01-23 00:00:00
0
NULL
9810006763
INFO@MAXHEALTHCARE.COM
OP
NO
Verified
2017-07-22 16:34:07
2017-07-22 16:34:07
Lab
697693
0

M
[download]

No warnings, no errors.

[reply]
[d/l]
[select]