perl sort 질문입니다.

일단 데이터 txt파일을 보니 CSV파일 포멧이군요.
CSV를 parsing하고 그걸 sort하는 코드를 reinvent wheel 할 필요없이

perl의 DB 프로그래밍 인터페이스인 DBI가 CSV format지원하는걸 이용해서
하시면 됩니다.
우선 DBD::CSV (DBI driver for CSV files) 모듈 부터 설치하시고 나서
데이터 파일을 표준 CSV format에 맞게 고치고 난후 작업을 하셔야 하는데
CSV파일의 맨 첫줄은 각 필드를 나타내는 필드명을 넣어주어야 합니다.
따라서 다음처럼 고치고 (필드명은 제가 임의로 넣었습니다.)

sort_list.txt

"A","B","C","D","E","F"
"11236","Damon Delamar","Rita Zdaneviciute","Closed & Ready","6-12-2006",""
"9333","Damon Delamar","Frank Troutman","Closed & Ready","6-7-2006",""
"13398","Natalee Hengst-White","Lisa DeFazio","Closed & Ready","6-8-2006",""
"3497","Natalee Hengst-White","William Gonzalez","Closed & Ready","6-13-2006",""
"31957","Natalee Hengst-White","Lisa DeFazio","Closed & Ready","6-9-2006",""
"32547","Natalee Hengst-White","Rita Zdaneviciute","Closed & Ready","6-8-2006",""
"17118","Rhonda Henry","Lisa DeFazio","Closed & Ready","6-6-2006",""
"24101","Rhonda Henry","Steve Welling","Closed & Ready","6-8-2006",""
"18826","Damon Delamar","Vivian Chien","Closed & Ready","6-27-2006",""
"20442","Damon Delamar","Rita Zdaneviciute","Closed & Ready","6-27-2006",""
"33567","Natalee Hengst-White","Rita Zdaneviciute","Closed & Ready","6-22-2006",""
"33568","Natalee Hengst-White","Frank Troutman","Closed & Ready","6-15-2006",""
"6931","Rhonda Henry","Jessica Shrode","Closed & Ready","6-15-2006",""

다음처럼 하시면 CSV파일에 대한 일반적인 DB Query를 사용가능합니다.
우선 DBI connect를 하고
두번째 B필드에 대해 order by한(여기서는 2번째 field(B)를 기준으로 했습니다만.
쿼리의 order by에 여러개 field를 두어서 첫번째 기준이 동일할때는 그다음 field를
기준으로 정렬등... 쿼리만 바꾸면 조건을 편하게 수정가능합니다.)
query를 prepare한 다음 query를 실행시키고
그결과를 찍어내기만 하면 됩니다.
쿼리결과 찍는 예제는 array dump, field명을 지정하는 hashref(두개는 주석처리)
맨마지막에 Text::CSV_XS 모듈을 이용한 csv로 찍는 3가지가 있습니다.

sort_list.pl

use DBI;
use Text::CSV_XS;

#When DOS text format
my $dbh=DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=,;csv_eol=\015\012") or die "Cannot connect: ".$DBI::errstr;
#When UNIX text format
#my $dbh=DBI->connect("DBI:CSV:f_dir=.;csv_sep_char=,;csv_eol=\012") or die "Cannot connect: ".$DBI::errstr;

my $sql="SELECT * FROM sort_list.txt order by B";
my $sth=$dbh->prepare($sql) or die "Cannot prepare: ".$dbh->errstr();
$sth->execute() or die "Cannot execute: ".$sth->errstr();

# ARRAY DUMP
#my @row;
#while( @row=$sth->fetchrow_array() )
#{
#    print join(" ", @row). "\n";
#}

# HASHREF DUMP
#my $row_hashref;
#while($row_hashref=$sth->fetchrow_hashref)
#{
#    print "$row_hashref->{A} $row_hashref->{B} $row_hashref->{C} $row_hashref->{D} $row_hashref->{E} $row_hashref->{F}\n";
#}

# CSV DUMP
$csv = Text::CSV_XS->new;
my @row;
my $status;
open(FILE,">sort_list_sorted.txt");

# dump each column names
$status = $csv->combine(@{ $sth->{NAME} });
print FILE $csv->string."\n";

# dump sorted data
while( @row=$sth->fetchrow_array() )
{
    $status = $csv->combine(@row);
    print FILE $csv->string."\n";
}

$sth->finish();

결과

sort_list_sorted.txt

A,B,C,D,E,F
11236,"Damon Delamar","Rita Zdaneviciute","Closed & Ready",6-12-2006,
9333,"Damon Delamar","Frank Troutman","Closed & Ready",6-7-2006,
18826,"Damon Delamar","Vivian Chien","Closed & Ready",6-27-2006,
20442,"Damon Delamar","Rita Zdaneviciute","Closed & Ready",6-27-2006,
13398,"Natalee Hengst-White","Lisa DeFazio","Closed & Ready",6-8-2006,
3497,"Natalee Hengst-White","William Gonzalez","Closed & Ready",6-13-2006,
31957,"Natalee Hengst-White","Lisa DeFazio","Closed & Ready",6-9-2006,
32547,"Natalee Hengst-White","Rita Zdaneviciute","Closed & Ready",6-8-2006,
33567,"Natalee Hengst-White","Rita Zdaneviciute","Closed & Ready",6-22-2006,
33568,"Natalee Hengst-White","Frank Troutman","Closed & Ready",6-15-2006,
17118,"Rhonda Henry","Lisa DeFazio","Closed & Ready",6-6-2006,
24101,"Rhonda Henry","Steve Welling","Closed & Ready",6-8-2006,
6931,"Rhonda Henry","Jessica Shrode","Closed & Ready",6-15-2006,

DBD::CSV, Text::CSV_XS 모듈사용에 대한 설명은
google에서 해당검색어로 찾아보면 많이 나옵니다.