Re: Sort alphabetically from file

[hippo]

TIMTOWTDI but here is one to get your teeth into.

#!/usr/bin/env perl 
use strict;
use warnings;

print sort { ($a =~ /\S+\n$/g)[0] cmp ($b =~ /\S+\n$/g)[0] } <DATA>

__DATA__
1 2 3 delta
1 2 3 apricot
1 2 3 charlie
1 2 3 bravo
1 2 3 echo
1 2 3 fox

[edujs7]

Thanks man but for some reason not working - I'm using a .txt file as input to sort BT<W print sort { ($a =~ /\S+\n$/g)[0] cmp ($b =~ /\S+\n$/g)[0] } file.txt not sure if I'm using it correctly

[BillKSmith]

You have just demonstrated why haukex advised you to "post a question effectively". Your problem now has more to do with reading a file than it does with sorting. You must create a filehandle by opening (open) the file and then read from the filehandle with the diamond operatior <> (perlop). All the answers you have received use the special filehandle DATA which is open by default.

For additional info on sorting, refer to FAQ How do I sort an array by (anything)?

[hippo]

You'll need to open the file first. eg:

open my $in, '<', 'file.txt' or die "Cannot open file for reading: $!"
+;
print sort { ($a =~ /\S+\n$/g)[0] cmp ($b =~ /\S+\n$/g)[0] } <$in>;
close $in;

See open and close for all the details.

[edujs7]

This worked - thanks so much :)