NAME

SPVM::Util - Variouse utilities

SYNOPSYS

use SPVM::Util (chomp_lf, chomp_crlf);

# Cut a newline LF
{
  my $ret = chomp_lf("abc\n");
}

# Cut a newline CR LF
{
  my $ret = chomp_crlf("abc\r\n");
}

# Create a new float complex array
{
  my $re_values = [1.5f, 2.5f, 3.5f];
  my $im_values = [5.5f, 6.5f, 7.5f];
  my $farray = complex_farray($re_values, $im_values);
}

# Create a new double complex array
{
  my $re_values = [1.5, 2.5, 3.5];
  my $im_values = [5.5, 6.5, 7.5];
  my $farray = complex_darray($re_values, $im_values);
}

# Create a new float complex value
{
  my $z = complexf(1.5f, 2.5f);
}

# Create a new double complex value
{
  my $z = complexd(1.5f, 2.5f);
}

# Copy a byte array
{
  my $nums = [(byte)1, 2, 3];
  my $nums_copy = copy_barray($nums);
}

# Copy a string
{
  my $str = "abc";
  my $str_copy = copy_str($str);
}

# Copy a short array
{
  my $nums = [(short)1, 2, 3];
  my $nums_copy = copy_sarray($nums);
}

# Copy a int array
{
  my $nums = [1, 2, 3];
  my $nums_copy = copy_iarray($nums);
}

# Copy a long array
{
  my $nums = [(long)1, 2, 3];
  my $nums_copy = copy_larray($nums);
}

# Copy a float array
{
  my $nums = [1.5f, 2.5f, 3.5f];
  my $nums_copy = copy_farray($nums);
}

# Copy a double array
{
  my $nums = [1.5, 2.5, 3.5];
  my $nums_copy = copy_darray($nums);
}

# Copy a string array
{
  my $strs = ["abc", "def", "ghi"]
  my $strs_copy = copy_strarray($strs);
}

# Check if the two byte arrays equal
{
  my $nums1 = [(byte)1, 2];
  my $nums2 = [(byte)1, 2];
  my $ret = equals_barray($nums1, $nums2);
}

# Check if the two short arrays equal
{
  my $nums1 = [(short)1, 2];
  my $nums2 = [(short)1, 2];
  my $ret = equals_sarray($nums1, $nums2);
}

# Check if the two int arrays equal
{
  my $nums1 = [(int)1, 2];
  my $nums2 = [(int)1, 2];
  my $ret = equals_iarray($nums1, $nums2);
}

# Check if the two long arrays equal
{
  my $nums1 = [(long)1, 2];
  my $nums2 = [(long)1, 2];
  my $ret = equals_larray($nums1, $nums2);
}

# Check if the two float arrays equal
{
  my $nums1 = [(float)1, 2];
  my $nums2 = [(float)1, 2];
  my $ret = equals_farray($nums1, $nums2);
}

# Check if the two double arrays equal
{
  my $nums1 = [(double)1, 2];
  my $nums2 = [(double)1, 2];
  my $ret = equals_darray($nums1, $nums2);
}

# Check if the two string arrays equal
{
  my $strs1 = ["abc", "def"];
  my $strs2 = ["abc", "def"];
  my $ret = equals_strarray($strs1, $strs2);
}

# Search substr
{
  my $found_offset = index("pppabcde", "bcd", 2);
}

# Copy object array
my $objects = [(object)SPVM::Int->new(1), SPVM::Int->new(2), SPVM::Int->new(3)];
my $objects_copy = copy_oarray($objects, sub : object ($self : self, $obj : object) {
  my $int_obj = (SPVM::Int)$obj;
  my $new_int_obj = SPVM::Int->new($int_obj->val);
  return $new_int_obj;
});

# Stringify all object and join them by the specific separator
my $objects = new Foo[3];
my $str = SPVM::Util->joino(",", $objects, sub : string ($self : self, $obj : object) {
  my $point = (SPVM::Point)$obj;
  my $x = $point->x;
  my $y = $point->y;
  
  my $str = "($x, $y)";
  
  return $str;
});

# split a string by the specific separator
my $str = "foo,bar,baz";
my $splited_strs = split(",", $str);

DESCRIPTION

Unix standard library.

STATIC METHODS

copy_oarray

sub copy_oarray : object[] ($objects : object[], $cloner : SPVM::Cloner)

Copy object array. You must specify a SPVM::Cloner object to copy each element.

equals_oarray

sub sub equals_oarray : int ($objs1 : oarray, $objs2 : oarray, $equality_checker : SPVM::EqualityChecker)

Check equality of two objects. You must sepecify a SPVM::EqualityChecker object to check the equality of each element.

$objs1 and $objs2 and $equality_checker must be defined, otherwise a exception occur.

Return 1 if the length of $objs1 and $objs2 is same and all element is same, otherwise return 0.

joino

sub joino : string ($sep : string, $objects : oarray, $stringer : SPVM::Stringer)

Stringify all objects and join them by specific separator. You must specify a SPVM::Stringer object to stringify each element.

If separater is undef, a exception occurs.

If object array is undef, a exception occurs.

split

sub split : string[] ($sep : string, $string : string)

Split a string by the specific separator.

chomp_lf

sub chomp_lf : string ($string : string)

Copy the string and remove the newline "\n" from the end of string and return it.

chomp_crlf

sub chomp_crlf : string ($string : string)

Copy the string and remove the newline "\r\n" from the end of string and return it.

complex_farray

sub complex_farray : SPVM::Complex_2f[] ($re_values : float[], $im_values : float[])

Create a new array of SPVM::Complex_2f with real values and imaginary values.

complex_darray

sub complex_darray : SPVM::Complex_2d[] ($re_values : double[], $im_values : double[])

Create a new array of SPVM::Complex_2d with real values and imaginary values.

complexf

sub complexf : SPVM::Complex_2f ($re : float, $im : float)

Return a new value of SPVM::Complex_2f.

complexd

sub complexd : SPVM::Complex_2d ($re : double, $im : double)

Return a new value of SPVM::Complex_2d.

copy_barray

sub copy_barray : byte[] ($nums : byte[])

Copy a byte array.

If the array is undefined, a exception occurs.

copy_str

sub copy_str : string ($string : string)

Copy a string.

If the array is undefined, a exception occurs.

copy_sarray

sub copy_sarray : short[] ($nums : short[])

Copy a short array.

If the array is undefined, a exception occurs.

copy_iarray

sub copy_iarray : int[] ($nums : int[])

Copy a int array.

If the array is undefined, a exception occurs.

copy_larray

sub copy_larray : long[] ($nums : long[])

Copy a long array.

If the array is undefined, a exception occurs.

copy_farray

sub copy_farray : float[] ($nums : float[])

Copy a float array.

If the array is undefined, a exception occurs.

copy_darray

sub copy_darray : double[] ($nums : double[])

Copy a double array.

If the array is undefined, a exception occurs.

copy_strarray

sub copy_strarray : string[] ($strings : string[])

Copy a string array.

If the array is undefined, a exception occurs.

equals_barray

sub equals_barray : int ($nums1 : byte[], $nums2 : byte[])

Check if two byte arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

equals_sarray

sub equals_sarray : int ($nums1 : short[], $nums2 : short[])

Check if two short arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

equals_iarray

sub equals_iarray : int ($nums1 : int[], $nums2 : int[])

Check if two int arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

equals_larray

sub equals_larray : int ($nums1 : long[], $nums2 : long[])

Check if two long arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

equals_farray

sub equals_farray : int ($nums1 : float[], $nums2 : float[])

Check if two float arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

equals_darray

sub equals_darray : int ($nums1 : double[], $nums2 : double[])

Check if two double arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

equals_strarray

sub equals_strarray : int ($strs1 : double[], $strs2 : double[])

Check if two string arrays equal.

If at least one of the arrays is undefined, a excetpion occurs.

E

sub E : double ()

Get a napier number.

get_type_name

sub get_type_name : string ($obj : object)

Get the type name of the object.

index

sub index : int ($str : string, $substr : string, $posision : int)

index function searches for one string within another. It returns the position of the first occurrence of $substr in $str at or after $position. If $position is omitted, starts searching from the beginning of the string. $position before the beginning of the string or after its end is treated as if it were the beginning or the end, respectively. $position and the return value are based at zero. If the substring is not found, "index" returns -1.

INT8_MIN

sub INT8_MIN : byte ()

Wapper of INT8_MIN of C99 cstdint library.

INT8_MAX

INT8_MAX : byte ()

Wapper of INT8_MAX of C99 cstdint library.

INT16_MIN

sub INT16_MIN : short ()

Wapper of INT16_MIN of C99 cstdint library.

INT16_MAX

sub INT16_MAX : short ()

Wapper of INT16_MAX of C99 cstdint library.

INT32_MIN

sub INT32_MIN : int ()

Wapper of INT32_MIN of C99 cstdint library.

INT32_MAX

sub INT32_MAX : int ()

Wapper of INT32_MAX of C99 cstdint library.

INT64_MIN

sub INT64_MIN : long ()

Wapper of INT64_MIN of C99 cstdint library.

INT64_MAX

sub INT64_MAX : long ()

Wapper of INT64_MAX of C99 cstdint library.

FLT_MIN

sub FLT_MIN : float ()

Wapper of FLT_MIN of C99 float library.

FLT_MAX

sub FLT_MAX : float ()

Wapper of FLT_MAX of C99 float library.

DBL_MIN

sub DBL_MIN : double ()

Wapper of DBL_MIN of C99 float library.

DBL_MAX

sub DBL_MAX : double ()

Wapper of DBL_MAX of C99 float library.

isalnum

sub isalnum : int ($char : int)

If character is alphanumeric('A'-'Z', 'a'-'z', '0'-'9'), return 1. If not, return 0.

isalpha

sub isalpha : int ($char : int)

If character is alphabetic('A'-'Z', 'a'-'z'), return 1. If not, return 0.

isblank

sub isblank : int ($char : int)

If character is blank(' ', '\t'), return 1. If not, return 0.

iscntrl

sub iscntrl : int ($char : int)

If character is a control character(0x00-0x1F, 0x7F), return 1. If not, return 0.

isdigit

sub isdigit : int ($char : int)

If character is decimal digit ('0'～'9'), return 1. If not, return 0.

isgraph

sub isgraph : int ($char : int)

If character has graphical representation(0x21-0x7E), return 1. If not, return 0.

islower

sub islower : int ($char : int)

If character is lowercase letter('a'-'z'), return 1. If not, return 0.

isprint

sub isprint : int ($char : int)

If character is printable(0x20-0x7E), return 1. If not, return 0.

ispunct

sub ispunct : int ($char : int)

If character is a punctuation character(0x21-0x2f, 0x3a-0x40, 0x5b-0x60, 0x7b-0x7e), return 1. If not, return 0.

isspace

sub isspace : int ($char : int)

If character is a white-space(' ', '\t', '\n', '\v', '\f', '\r'), return 1. If not, return 0.

isupper

sub isupper : int ($char : int)

If character is uppercase letter('A'-'Z'), return 1. If not, return 0.

isxdigit

sub isxdigit : int ($char : int)

If character is hexadecimal digit('0'-'9', 'A'-'F', 'a'-'f'), return 1. If not, return 0.

tolower

sub tolower : int ($char : int)

Convert uppercase letter('A'-'Z') to lowercase. If the character is not uppercase letter, return the character.

toupper

sub toupper : int ($char : int)

Convert lowercase letter('a'-'z') to lowercase. If the character is not uppercase letter, return the character.

is_perl_space

sub is_perl_space : int ($char : int)

If character is Perl space character(' ', '\r', '\n', '\t', '\f'), return 1. If not, return 0.

is_perl_word

sub is_perl_word : int ($char : int)

If character is Perl word character('a'-'z', 'A'-'Z', '_', '0'-'9'), return 1. If not, return 0.

joinb

sub joinb : string ($sep : string, $nums : byte[])

Join a byte array as string with separater and return it.

If separater is undef, a exception occurs.

If byte array is undef, a exception occurs.

joins

sub joins : string ($sep : string, $nums : short[])

Join a short array as string with separater and return it.

If separater is undef, a exception occurs.

If short array is undef, a exception occurs.

joini

sub joini : string ($sep : string, $nums : int[])

Join a int array as string with separater and return it.

If separater is undef, a exception occurs.

If int array is undef, a exception occurs.

joinl

sub joinl : string ($sep : string, $nums : long[])

Join a long array as string with separater and return it.

If separater is undef, a exception occurs.

If long array is undef, a exception occurs.

joinf

sub joinf : string ($sep : string, $nums : float[])

Join a float array as string with separater and return it.

If separater is undef, a exception occurs.

If float array is undef, a exception occurs.

joind

sub joind : string ($sep : string, $nums : double[])

Join a double array as string with separater and return it.

If separater is undef, a exception occurs.

If double array is undef, a exception occurs.

join

sub join : string ($sep : string, $strings : string[])

Join a string array with separater and return it.

If separater is undef, a exception occurs.

If string array is undef, a exception occurs.

lc

sub lc : string($str : string)

Convert uppercase string to lowercase string.

lcfirst

sub lcfirst : string($str : string)

Convert first chracter of string from uppercase to lowercase.

memcpyb

sub memcpyb : void ($dest_data : byte[], $dest_offset : int, $src_data : byte[], $src_offset : int, $length : int)

Copy source byte array to destination byte array with the each offset and a length.

If source data range and destination data overlap, the result is not guaranteed.

If source byte array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memcpys

sub memcpys : void ($dest_data : short[], $dest_offset : int, $src_data : short[], $src_offset : int, $length : int)

Copy source short array to destination short array with the each offset and a length.

If source data range and destination data overlap, the result is not guaranteed.

If source short array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memcpyi

sub memcpyi : void ($dest_data : int[], $dest_offset : int, $src_data : int[], $src_offset : int, $length : int)

Copy source int array to destination int array with the each offset and a length.

If source data range and destination data overlap, the result is not guaranteed.

If source int array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memcpyl

sub memcpyl : void ($dest_data : long[], $dest_offset : int, $src_data : long[], $src_offset : int, $length : int)

Copy source long array to destination long array with the each offset and a length.

If source data range and destination data overlap, the result is not guaranteed.

If source long array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memcpyf

sub memcpyf : void ($dest_data : float[], $dest_offset : int, $src_data : float[], $src_offset : int, $length : int)

Copy source float array to destination float array with the each offset and a length.

If source data range and destination data overlap, the result is not guaranteed.

If source float array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memcpyd

sub memcpyd : void ($dest_data : double[], $dest_offset : int, $src_data : double[], $src_offset : int, $length : int)

Copy source double array to destination double array with the each offset and a length.

If source data range and destination data overlap, the result is not guaranteed.

If source double array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memmoveb

sub memmoveb : void ($dest_data : byte[], $dest_offset : int, $src_data : byte[], $src_offset : int, $length : int)

Copy source byte array to destination byte array with the each offset and a length.

Even if source data range and destination data overlap, the result is guaranteed.

If source byte array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memmoves

sub memmoves : void ($dest_data : short[], $dest_offset : int, $src_data : short[], $src_offset : int, $length : int)

Copy source short array to destination short array with the each offset and a length.

Even if source data range and destination data overlap, the result is guaranteed.

If source short array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memmovei

sub memmovei : void ($dest_data : int[], $dest_offset : int, $src_data : int[], $src_offset : int, $length : int)

Copy source int array to destination int array with the each offset and a length.

Even if source data range and destination data overlap, the result is guaranteed.

If source int array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memmovel

sub memmovel : void ($dest_data : long[], $dest_offset : int, $src_data : long[], $src_offset : int, $length : int)

Copy source long array to destination long array with the each offset and a length.

Even if source data range and destination data overlap, the result is guaranteed.

If source long array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memmovef

sub memmovef : void ($dest_data : float[], $dest_offset : int, $src_data : float[], $src_offset : int, $length : int)

Copy source float array to destination float array with the each offset and a length.

Even if source data range and destination data overlap, the result is guaranteed.

If source float array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

memmoved

sub memmoved : void ($dest_data : double[], $dest_offset : int, $src_data : double[], $src_offset : int, $length : int)

Copy source double array to destination double array with the each offset and a length.

Even if source data range and destination data overlap, the result is guaranteed.

If source double array or destination array is undef, a exception occurs.

If length is nagative, a exception occurs.

If copy is not in the valid rainge, a exception occurs.

new_object_array_proto

sub new_object_array_proto : oarray ($proto_array : oarray, $length : int)

Create a new generic object array as the same type as the given array.

crand

sub crand : int ();

Get random number(0 to SPVM::Util->RAND_MAX). This is same as rand function of C language.

The first seed is epoch time usually. Second seed is the return value.

use SPVM::Time;
my $rand1 = crand(SPVM::Time->time);
my $rand2 = crand($rand1);

rand

sub rand : double ();

Get random number(0 <= random_number < 1). This is same as rand function of Perl language.

The first seed is epoch time usually. Second seed is the return value.

use SPVM::Time;
my $rand1 = crand(SPVM::Time->time);
my $rand2 = crand($rand1);

srand

sub srand : void ($seed : long);

Sets random number seed for the "crand" static method.

replace

sub replace : string ($str : string, $substr : string, $replace : string, $start_offset : int, $found_offset_ref : int&)

Replace the sub string in the string with a replace string and return the result string.

You can specify a byte offset of the string.

You can get the found byte offset by int reference.

my $str = "abcde";
my $substr = "bcd";
my $replace = "AB";
my $found_offset = 0;
my $result_str = replace($str, $substr, $replace, 0, \$found_offset);

replace_all

sub replace_all : string ($str : string, $substr : string, $replace : string)

Replace all the sub string in the string with a replace string and return the result string.

my $str = "foo bar foo bar foo";
my $substr = "bar";
my $replace = "AB";
my $result_str = replace_all($str, $substr, $replace);

strtoi

sub strtoi : int ($string : string, $digit : int);

Convert the string to a int value with a digit(2, 8, 10, 16).

Format is [' ' or '\t' or '\n' or '\v' or '\f' or '\r'][+ or -][0][x][one more than 0-9]. Internal of [] is optional.

If convertion fails, a exception occuer.

my $string = "-2147483648";
my $num = strtoi($string, 10);

strtol

sub strtol : long ($string : string, $digit : int);

Convert the string to long value with digit(2, 8, 10, 16).

Format is [' ' or '\t' or '\n' or '\v' or '\f' or '\r'][+ or -][0][x][zero more than 0-9]. Internal of [] is optional.

If the convertion fails, a exception occuer.

my $string = "-9223372036854775808";
my $num = strtol($string, 10);

strtof

sub strtof : float ($string : string);

Convert the string to float value.

Format is [' ' or '\t' or '\n' or '\v' or '\f' or '\r'][+ or -][zero more than 0-9][.][zero more than 0-9][e or E[+ or -]zero more than 0-9]. Internal of [] is optional.

If the convertion fails, a exception occuer.

my $string = "1.25";
my $num = strtof($string);

strtod

sub strtod : double ($string : string);

Convert the string to float value.

Format is [' ' or '\t' or '\n' or '\v' or '\f' or '\r'][+ or -][zero more than 0-9][.][zero more than 0-9][e or E[+ or -]zero more than 0-9]. Internal of [] is optional.

If the convertion fails, a exception occuer.

my $string = "1.25";
my $num = strtod($string);

uc

sub uc : string($str : string)

Convert a lowercase string to a uppercase string.

If the string is undef, a exception occur.

ucfirst

sub ucfirst : string($str : string)

Convert the first character of a string to a uppercase character.

If the string is undef, a exception occur.

rindex

sub rindex : int ($str : string, $substr : string, $offset : int)

Same as "index" function except that the search is the last of the string.

contains

sub contains : int ($str : string, $substr : string)

If the string contains the sub string, return 1. If not, return 0.

abs

sub abs : int ($x : int);

Get the abusolute value of a int value.

labs

sub labs : long ($x : long);

Get the abusolute value for a long value.

reverseb

native sub reverseb : void ($nums : byte[]);

Reverse the order of the elements of the byte array.

If the argument is undef, a exception occurs.

reverses

native sub reverses : void ($nums : short[]);

Reverse the order of the elements of the short array.

If the argument is undef, a exception occurs.

reversei

native sub reversei : void ($nums : int[]);

Reverse the order of the elements of the int array.

If the argument is undef, a exception occurs.

reversel

native sub reversel : void ($nums : long[]);

Reverse the order of the elements of the long array.

If the argument is undef, a exception occurs.

reversef

native sub reversef : void ($nums : float[]);

Reverse the order of the elements of the float array.

If the argument is undef, a exception occurs.

reversed

native sub reversed : void ($nums : double[]);

Reverse the order of the elements of the double array.

If the argument is undef, a exception occurs.

reverseo

native sub reverseo : void ($objs : oarray);

Reverse the order of the elements of the object array.

If the argument is undef, a exception occurs.

warn

sub warn : void ($string : string);

Print string with file name and line number to stderr. line break is added to end of string.

1 POD Error

The following errors were encountered while parsing the POD:

Around line 492:: Non-ASCII character seen before =encoding in '('0'～'9'),'. Assuming UTF-8

To install SPVM, copy and paste the appropriate command in to your terminal.

cpanm

cpanm SPVM

CPAN shell

perl -MCPAN -e shell
install SPVM

For more information on module installation, please visit the detailed CPAN module installation guide.

	Global
`s`	Focus search bar
`?`	Bring up this help dialog

	GitHub
`g` `p`	Go to pull requests
`g` `i`	go to github issues (only if github is preferred repository)

	POD
`g` `a`	Go to author
`g` `c`	Go to changes
`g` `i`	Go to issues
`g` `d`	Go to dist
`g` `r`	Go to repository/SCM
`g` `s`	Go to source
`g` `b`	Go to file browse

	Search terms
module: (e.g. module:Plugin)
distribution: (e.g. distribution:Dancer auth)
author: (e.g. author:SONGMU Redis)
version: (e.g. version:1.00)