From: zentara Subject: Re: [SLE] alphabetical order Date: Mon, 23 Dec 2002 12:08:28 -0500

On Mon, 23 Dec 2002 11:05:07 -0500 Greg Freemyer wrote:

...

Did you try "sort"?

I often use it with the -u argument to get rid of duplicates.

Here's a perl script for you ################################################ #!/usr/bin/perl open (FH,"<$ARGV[0]") or die $!; @array = <FH>; my @sorted = sort @array; open (FH,">$ARGV[0].sorted") or die $!; print FH @sorted; close FH; ##############################################

-- use Perl; #powerful programmable prestidigitation

-- Check the headers for your unsubscription address For additional commands send e-mail to suse-linux-e-help@suse.com Also check the archives at http://lists.suse.com Please read the FAQs: suse-linux-e-faq@suse.com

Thanks again and more -- Francesco

On Tue, 24 Dec 2002 07:28:50 +0000 Derek Fountain wrote:

...

Here's a perl script for you ################################################ #!/usr/bin/perl open (FH,"<$ARGV[0]") or die $!; @array = <FH>; my @sorted = sort @array; open (FH,">$ARGV[0].sorted") or die $!; print FH @sorted; close FH; ##############################################

Is that not just a very longhand way of saying:

perl -e 'print sort <>' < file > file.sorted

Yeah, but for some reason I have a hard time remembering 1-liners, this way, I can save the script and just run it on a file. It also explains what is happening better, in case you want to do some modifications. Some people like 1-liners, some don't. -- use Perl; #powerful programmable prestidigitation

...

Is that not just a very longhand way of saying:

perl -e 'print sort <>' < file > file.sorted

Anyway, both don't sort according to the current locale while the command "sort" does. See perllocale:

USING LOCALES The use locale pragma

By default, Perl ignores the current locale. The "use locale" pragma tells Perl to use the current locale for some operations:

The comparison operators ("lt", "le", "cmp", "ge", and "gt") and the POSIX string collation functions strcoll() and strxfrm() use "LC_COLLATE". sort() is also affected if used without an explicit comparison function, because it uses "cmp" by default.

Never knew that. I guess locales don't apply too much to people who work in English all of the time? Anyway, is this the fix?: perl -e 'use locale; print sort <>' < file > file.sorted Makes no difference on my machine with my test data of course. -- Australian Linux Technical Conference 2003: http://www.linux.conf.au/ Explain to your boss the benefits of you going...

Alexandr Malusek writes:

...

I guess locales don't apply too much to people who work in English all of the time?

Yes.

I was very wrong here. Both en_US and en_GB collation order differs from the default POSIX C: $ export LC_ALL=en_US $ perl -e 'print sort <>' < file A B a b $ perl -e 'use locale; print sort <>' < file a A b B Perl programmers should keep it in mind. -- Alexandr.Malusek@imv.liu.se

zentara writes:

On 24 Dec 2002 14:27:27 +0100 Alexandr Malusek wrote:

...

Both en_US and en_GB collation order differs from the default POSIX C:

Well here is even more to confuse us all. I run the following script, with and without use locales; and my output is A B Z a b z

I cannot reproduce your problem on my machines (SuSE 7.3, 8.1), the "use locale" command works according to the documentation there. Use the command "locale" to check LC_COLLATE is not set to POSIX but to "en_US" and that locales are installed. $ rpm -qf /usr/lib/locale/en_US/LC_COLLATE glibc-locale-2.2.5-151 -- Alexandr.Malusek@imv.liu.se

On Fri, 27 Dec 2002 15:05:58 PST Carl William Spitzer IV wrote:

As soon as I get my box back up Ill have to start learning perl it looks like a fun language.

Any recommendations as to books for beginners.

Your best buy is the Perl CD Bookshelf. Version 3 is the latest http://www.oreilly.com/catalog/perlcdbs3/ it's still a bit pricy though. But you do get all the books as html, so you can cut'n'paste code. It has a cumulative index too. I used the Bookshelf version 2. It is still pretty good for beginners, and you can get it at half.com for $7.00. That's unbelievably low compared to the ~100 for V3. Also, go to http://learn.perl.org/ and signup for their beginners list, for email, or subscribe to it via usenet(which is the best). You can ask away all the dumb beginner questions you might have, and some serious experts will answer you for FREE. :-) Just like a free school. -- use Perl; #powerful programmable prestidigitation