Login or Register to Ask a Question and Join Our Community

Linux and UNIX Man Pages

Linux & Unix Commands - Search Man Pages

sort::key::multi(3pm) [debian man page]

Sort::Key::Multi(3pm)					User Contributed Perl Documentation				     Sort::Key::Multi(3pm)

NAME

       Sort::Key::Multi - simple multikey sorts

SYNOPSIS

	   use Sort::Key::Multi qw(sikeysort);
	   my @data = qw(foo0 foo1 bar34 bar0 bar34 bar33 doz4)
	   my @sisorted = sikeysort { /(w+)(d+)/} @data;

DESCRIPTION

       Sort::Key::Multi creates multikey sorting subroutines and exports them to the caller package.

       The names of the sorters are of the form "xxxkeysort" or "xxxkeysort_inplace", where "xxx" determines the number and types of the keys as
       follows:

	   + "i" indicates an integer key, "u" indicates an unsigned integer key, "n" indicates a numeric key, "s" indicates a string key and "l"
	   indicates a string key that obeys locale order configuration.

	   + Type characters can be prefixed by "r" to indicate reverse order.

	   + A number following a type character indicates that the key type has to be repeated as many times (for instance "i3" is equivalent to
	   "iii" and "rs2" is equivalent to "rsrs").

	   + Underscores ("_") can be freely used between type indicators.

       For instace:

	  use Key::Sort::Multi qw(iirskeysort
				  i2rskeysort
				  i_i_rs__keysort
				  i2rs_keysort);

       exports to the caller package fourth identical sorting functions that take two integer keys that are sorted in ascending order and one
       string key that is sorted in descending order.

       The generated sorters take as first argument a subroutine that is used to extract the keys from the values which are passed inside $_, for
       example:

	 my @data = qw(1.3.foo 1.3.bar 2.3.bar 1.4.bar 1.7.foo);
	 my @s = i2rs_keysort { split /./, $_ } @data;

SEE ALSO

       For a more general multikey sorter generator see Sort::Key::Maker.

COPYRIGHT AND LICENSE

       Copyright (C) 2006 by Salvador Fandin~o <sfandino@yahoo.com>

       This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.4 or,
       at your option, any later version of Perl 5 you may have available.

perl v5.14.2							    2010-04-16						     Sort::Key::Multi(3pm)

Check Out this Related Man Page

Net::Jabber::Key(3)					User Contributed Perl Documentation				       Net::Jabber::Key(3)

NAME

       Net::Jabber::Key - Jabber Key Library

SYNOPSIS

	 Net::Jabber::Key is a module that provides a developer easy access
	 to generating, caching, and comparing keys.

DESCRIPTION

	 Key.pm is a helper module for the Net::Jabber::Transport.  When the
	 Transport talks to a Client it sends a key and expects to get that
	 key back from the Client.  This module provides an API to generate,
	 cache, and then compare the key send from the Client.

   Basic Functions
	   $Key = new Net::Jabber::Key();

	   $key = $Key->Generate();

	   $key = $Key->Create("bob@jabber.org");

	   $test = $Key->Compare("bob@jabber.org","some key");

METHODS

   Basic Functions
	   new(debug=>string,	    - creates the Key object.  debug should
	       debugfh=>FileHandle,   be set to the path for the debug
	       debuglevel=>integer)   log to be written.  If set to "stdout"
				      then the debug will go there.  Also, you
				      can specify a filehandle that already
				      exists and use that.  debuglevel controls
				      the amount of debug.  0 is none, 1 is
				      normal, 2 is all.

	   Generate() - returns a key in Digest SHA1 form based on the current
			time and the PID.

	   Create(cacheString) - generates a key and caches it with the key
				 of cacheString.  Create returns the key.

	   Compare(cacheString, - compares the key stored in the cache under
		   keyString)	  cacheString with the keyString.  Returns 1
				  if they match, and 0 otherwise.

AUTHOR

       By Ryan Eatmon in May of 2000 for http://jabber.org.

COPYRIGHT

       This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

perl v5.12.1							    2004-08-17						       Net::Jabber::Key(3)
Man Page