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

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.

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


The stupid question is the question not asked
	PerlMonks