DSXchange

Code: Select all

#!/user/local/bin/perl -w
#
#       program name: FileSorter.pl
#       Purpose     : To sort a flat file taking into account the header
#                       row if it exists. It also allows the use to sort
#                       in either ascending or descending order.
#       Usage       : perl FileSorter.pl Y/N A/D filename
#                     ie: perl FileSorter.pl Y A bob.txt - this would
#                       sort a file named bob.txt that includes a header
#                       in ascending order.
#       Limitations : This program is brain dead simple and goes in order
#                       of the lines as they are defined and it assumes
#                       this is a text sort. It does not allow
#                       you to pick a field to sort on.
#
#       This program will not overwrite your file!  It will make a new file
#       using your original filename with "sorted_" prepended.

use strict;

my $header = uc($ARGV[0]); # Y = header, N = No header
my $order = uc($ARGV[1]); # D = descending, A = ascending
my $filename = $ARGV[2];
my $tmp = "$filename" . "_sorted";
my @array = '';
my @sorted = '';

open (F, "< $filename") || die "Could not open $filename for reading\n";
open (R, "> $tmp") || die "Could not open $tmp for writing.\n";

while (<F>)
{
    chomp $_;
    if ($header eq "Y")
    {
        print R "$_\n";
        $header = "N";
        next;
    }
    push(@array,"$_\n");
}

# making the assumption this is a numeric sort
if ($order eq "A")
    {@sorted = sort {$a cmp $b} @array;}
else
    {@sorted = sort {$b cmp $a} @array;}

foreach(@sorted)
{print R "$_";}

close F;
close R;