sort the content of a file in alphabetical order

[eileen1017]

I have a file load_bom.ctl and the content of the file as follows:

BMIV7.5-46-60K0,INV,BMIV7.5-46-60K0.dat
DMIV7.5-46-60K0,INV,DMIV7.5-46-60K0.dat
CMIV7.5-46-60K0,INV,CMIV7.5-46-60K0.dat
AMIV7.5-46-60K0,INV,AMIV7.5-46-60K0.dat
EMIV7.5-46-60K0,INV,EMIV7.5-46-60K0.dat

I need to write a perl script that reads this file and sort the file content in alphabetical order. How will I be able to achieve this? Please help. Thanks.

 

[KevinADC]

this might work:

open(FH,'<yourfile.txt') or die "$!";
my @lines = <FH>;
close(FH);
@lines = sort @lines;
print @lines;

how big is the file? If it's too big this might consume too much memory, but if it's a few megabytes or smaller you should be OK.

 

[PaulTEG]

Does it have to be a perl script? I would have thought a command line option might have been faster in these circumstances, for a straightforward sort

--Paul

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)

 

[brigmar]

open(INFILE,'<yourfile.txt') or die "$!";
open(OUTFILE,'>outfile.txt') or die "$!";

print OUTFILE sort <FH>;

close OUTFILE;
close INFILE;

Yes, it's that easy..

 

[brigmar]

well it would be easier if I typed it in correctly...

the print line should be:

print OUTFILE sort <INFILE>;