Math::String::Sequence - defines a sequence (range) of Math::String(s)
use Math::String::Sequence; use Math::String::Charset; $seq = Math::String::Sequence->new( a, zzz ); # set a-z $seq = Math::String::Sequence->new( a, zzz, ['z'..'a'] ); # set z..a $seq = Math::String::Sequence->new( { first => 'a', last => 'zzz', charset => ['z'..'a'] } ); # same $x = Math::String->new('a'); $y = Math::String->new('zz'); $seq = Math::String::Sequence->new( { first => $x, last => $y, } ); # same print "length: ",$seq->length(),"\n"; print "first: ",$seq->first(),"\n"; print "last: ",$seq->last(),"\n"; print "5th: ",$seq->string(5),"\n"; print "out-of-range: ",$seq->string(10000000),"\n"; # undef print "as array:: ",$seq->as_array(),"\n"; # as array
perl5.005, Exporter, Math::BigInt, Math::String, Math::String::Charset
Exports nothing on default, but can export sequence()
.
This module creates a sequence, or range of Math::Strings. Given a first and last string it represents all strings in between, including first and last. The sequence can be reversed, unlike 'A'..'Z', which needs the first argument be smaller than the second.
The default charset is the set containing "abcdefghijklmnopqrstuvwxyz" (thus producing always lower case output). If either first
or last
is not an Math::String, they will get the given charset or this default.
new();
Create a new Math::String::Sequence object. Arguments are the first and last string, and optional charset. You can give a hash ref, that must then contain the keys first
, last
and charset
.
$sequence->length();
Returns the amount of strings this sequence contains, aka (last-first)+1.
$sequence->is_reversed();
Returns true or false, depending wether the first string in the sequence is smaller than the last.
$sequence->first($length);
Return the first string in the sequence. The optional argument becomes the new first string.
$sequence->last($length);
Return the last string in the sequence. The optional argument becomes the new last string.
$sequence->charset();
Return a reference to the charset of the Math::String::Sequence object.
$sequence->string($n);
Returns the Nth string in the sequence, 0 beeing the first
. Negative arguments count backward from last
, just like with arrays.
@array = $sequence->as_array();
Returns the sequence as array of strings. Usefull for emulating things like
foreach ('a'..'z') { print "$_\n"; }
via
my $sequence = Math::String::Sequence->new('foo','bar'); foreach ($sequence->as_array()) { print "$_\n"; }
Beware, might create HUGE arrays!
None discovered yet.
This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.
If you use this module in one of your projects, then please email me. I want to hear about how my code helps you ;)
This module is (C) Tels http://bloodgate.com 2001 - 2005.