Hi All
How all are doing today. Just struck in an issue in Perl
I have a csv file which contain 32 column, I want to make sorting in that csv file with respect to 26th column.
Is it possible to do so without any module being added?

Regards
Aditya

---------- Post updated at 10:02 AM ---------- Previous update was at 09:55 AM ----------

FYI I am usinf windows Perl

You could install cygwin to get the nicer sort. A CSV file with commas in the data is particularly hard to sort, even for the unix sort. I would just read the CSV with PERL libraries and put every row into a sorted container like a tree (not a hash), so I can fetch them in order.
http://perl.plover.com/BTree/ http://search.cpan.org/~bryce/Sort-T...pm#DESCRIPTION
http://search.cpan.org/~rsavage/Tree...pm#DESCRIPTION
Many Perl containers can be sorted: http://search.cpan.org/~chthorman/Da...ble.pm#SORTING
http://search.cpan.org/~uri/Sort-Mak...pm#DESCRIPTION

Wading through all this, first you have to avoid one dimensional sorts unless you want to reorder your csv lines with the key first, or copy the key first as N bytes left justified so you can easily remove it. You do not need manually managed parent-child trees. Hash containers have their own hash based sort order, so when they say hash tree, the mean hash map, not tree map. I read an echo of my words here: http://www.perlmonks.org/index.pl?node_id=599204

use warnings;
use strict;

my (%hash, @arr);

open FILE, "< c:/path/to/file.csv";
while (<FILE>) {
    chomp;
    @arr = split /,/;
    $hash{$arr[25]} = join(',',@arr[0..24]) . '|' . join(',',@arr[26..$#arr]);
}    
close FILE;

undef @arr;
for (sort keys %hash) {
    @arr = split /\|/, $hash{$_};
    print "$arr[0],$_,$arr[1]\n";
}

Check out this info:
http://www.perlmonks.org/?node_id=512942

A CSV file with commas in the data is particularly hard to sort, even for the unix sort, e.g.:

1,2,3,"A CSV file with commas in the data is particularly hard to sort, even for the unix sort.",5,6\r\n

@spacebar
while using sort command I am getting an error.

syntax error at C:\Users\aditya\Documents\Perl Prgms\compare.pl line 35,
near "3 -t "

Use of uninitialized value in join or string at C:\Users\aditya\Documents
\Perl Prgms\sort_check.pl line 10, <FILE> line 476.

Well, the link is showing shell (executable /bin/sort), not perl sort() built-in, and seems to have lost some line breaks in the data, too.