NAME
Lingua::Klingon::Collate - Sort words in Klingon sort order
VERSION
This document refers to version 1.01 of Lingua::Klingon::Collate, released on 2003-09-22.
SYNOPSIS
use Lingua::Klingon::Collate;
my @sorted_words;
@sorted_words = sort { Lingua::Klingon::Collate::strcoll($a, $b) }
@words;
# alternatively
@sorted_words = sort Lingua::Klingon::Collate::strcoll @words;or
use Lingua::Klingon::Collate ':all';
my @sorted_words;
@sorted_words = sort { strcoll($a, $b) } @words;
# alternatively
@sorted_words = sort strcoll @words;or
use Lingua::Klingon::Collate qw( strcoll strxfrm strxfrm );
my @sorted_words;
# using strcoll
@sorted_words = sort strcoll @words;
# using strxfrm and a Schwartzian Transform
@sorted_words = map { $_->[1] }
sort { $a->[0] cmp $b->[0] }
map { [ strxform($_), $_ ] }
@words;
# using strxfrm, native sort, and strunxfrm
# (need to use unary + in front of strxfrm so that it is not
# treated as the sort sub argument to sort)
@sorted_words = strunxfrm
sort
+strxfrm
@words;DESCRIPTION
Overview
Lingua::Klingon::Collate is a module which allows you to sort words in Klingon sort order (for example, 'ngan' should sort after 'nob' since 'ng' comes after 'n' in Klingon sort order and counts as one letter).
You can either transform all words into a representation that allows you to use the normal sort command, or use a subroutine that will transform a word "on the fly".
Generally, if you are sorting many words, it will be quicker to transform each word individually and sort the transformed words. You can either keep a record of which original word matches which transformed word (as in the example using the Schwartzian Transform), or untransform the words after sorting (as in the example using strunxfrm).
This module is based on the C library functions strxfrm(3) and strcoll(3). There is no standard C library function strunxfrm(3).
Exports
Lingua::Klingon::Collate exports no functions by default, in order to avoid namespace pollution. However, all functions listed here can be imported explicitly by naming them, or they can be imported all together by using the tag ':all'.
strcoll
This subroutine takes two words and compares them according to Klingon sort order. It returns 0 if the two words are equal, a negative number if the first word sorts before the second one, and a positive number of the first word sorts after the second one. (This is the same behaviour as Perl's cmp operator.)
$result = strcoll('ngan', 'nob'); # $result is positiveThis subroutine can also be used as a sort subroutine:
@sorted_words = sort strcoll @words;strxfrm
This subroutine takes one or more strings as input and transforms them into a representation such that using the default sort on two outputs of this subroutine is equivalent to sorting the corresponding inputs with strcoll.
This should hold true even for variant character sets such as EBCDIC, as long as the code points for lower-case letters increase monotonically from ord('a') to ord('z').
This subroutine can, therefore, be used to pre-process strings in order to sort them more efficiently.
In list context, it returns a list of transformed strings in the same order as the input strings. In scalar context, it returns the transformed version of the first input string.
The result of applying strxfrm to a string that is not made up of valid Klingon words is undefined.
strunxfrm
This subroutine takes one or more strings as input and performs the inverse transformation from strxfrm. Inputs should, therefore, be valid outputs of strxfrm.
This subroutine can be used if you wish to sort strings without keeping track of which string maps to which transformed version, by sorting the transformed versions and untransforming them afterwards.
In list context, this subroutine returns a list of strings in standard orthography in the same order as the input strings. In scalar context, it returns the untransformed version of the first input string.
The result of applying strunxfrm to a string that is not a valid, defined output of strxfrm is undefined.
BUGS
strxform and, therefore, strcoll currently only work on single words (that is, strings consisting only of valid Klingon letters without punctuation, whitespace, or other characters). Patches welcome.
SEE ALSO
FEEDBACK
If you use this module, I'd appreciate it if you drop me a line at the email address in "AUTHOR", just so that I have an idea of how many people use this module at all. Also, if you have any comments, feel free to email me.
AUTHOR
Philip Newton, <pne@cpan.org>
COPYRIGHT AND LICENSE
Copyright (C) 2003 by Philip Newton. All rights reserved.
Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions are met:
Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.
Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.
Neither the name of Philip Newton nor the names of its contributors may be used to endorse or promote products derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.