length
length([EXPR])

print length("Hello");
print length("こんにちは");

サンプルプログラム

# length関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $num;

$num = length("Hello");
print "Hello = $num\n";

$num = length("こんにちは");
print "こんにちは = $num\n";

$num = bytes::length("こんにちは");
print "こんにちは = $num\n";

[xxxxxxxx@dddddddddd String]$ perl test1-1_u.pl | nkf -w
Hello = 5
こんにちは = 5
こんにちは = 15
[xxxxxxxx@dddddddddd String]$ 

substr
substr(EXPR,OFFSET[,LENGTH[,REPLACEMENT]])

Morningと言う文字の文字位置

 M  o  r  n  i  n  g
--------------------
 0  1  2  3  4  5  6
-7 -6 -5 -4 -3 -2 -1

Morningと言う文字に対してsubstr(1, 2)とした場合は or
Morningと言う文字に対してsubstr(1, -2)とした場合は orni

 M  o  r  n  i  n  g
--------------------
 0  1  2  3  4  5  6
-7 -6 -5 -4 -3 -2 -1

my $sub;

$sub = substr("Morning", 2);
print "$sub\n";

$sub = substr("Morning", -2);
print "$sub\n";

$sub = substr("Morning", 1, 2);
print "$sub\n";

$sub = substr("Morning", 1, -2);
print "$sub\n";

my $targetstr = "Morning";
substr($targetstr, 1, -1, "ORNING");
print "$targetstr\n";

サンプルプログラム

# substr関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $sub;

$sub = substr("Morning", 2);
print "substr(\"Morning\", 2) = $sub\n";

$sub = substr("Morning", -2);
print "substr(\"Morning\", -2) = $sub\n";

$sub = substr("Morning", 1, 2);
print "substr(\"Morning\", 1, 2) = $sub\n";

$sub = substr("Morning", 1, -2);
print "substr(\"Morning\", 1, -2) = $sub\n";

my $targetstr = "Hello Satou";
print "old = $targetstr\n";
substr($targetstr, 5, 1, " Mr.");
print "new = $targetstr\n";

[xxxxxxxx@dddddddddd String]$ perl test2-1_u.pl | nkf -w
substr("Morning", 2) = rning
substr("Morning", -2) = ng
substr("Morning", 1, 2) = or
substr("Morning", 1, -2) = orni
old = Hello Satou
new = Hello Mr.Satou
[xxxxxxxx@dddddddddd String]$ 

split
split(/PATTERN/[,EXPR[,LIMIT]])

my $targetstr = "My name is Gotou.";
my @strlist = split(/ /, $targetstr);

分割数の取得

my $targetstr = "My name is Gotou.";
my $count = split(/ /, $targetstr);

サンプルプログラム

# split関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $target = "My name is Gotou.";
print "$target\n";

print "\n空白で分割:\n";

my @list = split(/ /, $target);
foreach my $parts(@list){
  print "$parts\n";
}

print "\n最大数2として空白で分割:\n";

@list = split(/ /, $target, 2);
foreach my $parts(@list){
  print "$parts\n";
}

[xxxxxxxx@dddddddddd String]$ perl test3-1_u.pl | nkf -w
My name is Gotou.

空白で分割:
My
name
is
Gotou.

最大数2として空白で分割:
My
name is Gotou.
[xxxxxxxx@dddddddddd String]$ 

index
index(STR,SUBSTR[,POSITION])

Hamamatsu を対象に ma を検索する

Hamamatsu
---------
012345678

この場合は2の位置に最初の ma が見つかるため 2 が返される

Hamamatsu を対象に検索位置 3 から ma を検索する。

Ham|amatsu
---------
012|345678

この場合は4の位置に最初の ma が見つかるため 4 が返される

my $target = "Hamamatsu";
my $pos = index($target, "ma");

サンプルプログラム

# index関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $target = "Hamamatsu";
print "検索対象:$target, 検索文字:ma\n";

my $pos;
$pos = index($target, "ma");
print "開始0, 位置:$pos\n";

$pos = index($target, "ma", 2);
print "開始2, 位置:$pos\n";

$pos = index($target, "ma", 3);
print "開始3, 位置:$pos\n";

$pos = index($target, "ma", 4);
print "開始4, 位置:$pos\n";

$pos = index($target, "ma", 5);
print "開始5, 位置:$pos\n";

[xxxxxxxx@dddddddddd String]$ perl test4-1_u.pl | nkf -w
検索対象:Hamamatsu, 検索文字:ma
開始0, 位置:2
開始2, 位置:2
開始3, 位置:4
開始4, 位置:4
開始5, 位置:-1
[xxxxxxxx@dddddddddd String]$ 

rindex
rindex(STR,SUBSTR[,POSITION])

Hamamatsu を対象に ma を検索する

Hamamatsu
---------
012345678

この場合は4の位置に最後の ma が見つかるため 4 が返される

Hamamatsu を対象に検索位置 5までの間で ma を検索する。

Hamama|tsu
---------
012345|678

この場合は4の位置に最後の ma が見つかるため 4 が返される

Hamamatsu を対象に検索位置 4までの間で ma を検索する。

Hamam|atsu
---------
01234|5678

この場合は4の位置に最後の ma が見つかるため 4 が返される
検索する部分文字列の先頭の文字が検索範囲に含まれていればOK

Hamamatsu を対象に検索位置 3までの間で ma を検索する。

Hama|matsu
---------
0123|45678

この場合は2の位置に最後の ma が見つかるため 2 が返される

my $target = "Hamamatsu";
my $pos = rindex($target, "ma");

サンプルプログラム

# rindex関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $target = "Hamamatsu";
print "検索対象:$target, 検索文字:ma\n";

my $pos;
$pos = rindex($target, "ma");
print "終了末, 位置:$pos\n";

$pos = rindex($target, "ma", 5);
print "終了5, 位置:$pos\n";

$pos = rindex($target, "ma", 4);
print "終了4, 位置:$pos\n";

$pos = rindex($target, "ma", 3);
print "終了3, 位置:$pos\n";

$pos = rindex($target, "ma", 2);
print "終了2, 位置:$pos\n";

$pos = rindex($target, "ma", 1);
print "終了1, 位置:$pos\n";

[xxxxxxxx@dddddddddd String]$ perl test5-1_u.pl | nkf -w
検索対象:Hamamatsu, 検索文字:ma
終了末, 位置:4
終了5, 位置:4
終了4, 位置:4
終了3, 位置:2
終了2, 位置:2
終了1, 位置:-1
[xxxxxxxx@dddddddddd String]$ 

uc
uc([EXPR])

my $target = "melon";
my $ucstr = uc($target);

ucfirst
ucfirst([EXPR])

my $target = "melon";
my $ucfirststr = ucfirst($target);

サンプルプログラム

# uc関数/ucfirst関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $target = "melon";
my $ucstr = uc($target);
print "$target -> $ucstr\n";

my $ucfirststr = ucfirst($target);
print "$target -> $ucfirststr\n";

[xxxxxxxx@dddddddddd String]$ perl test6-1_u.pl | nkf -w
melon -> MELON
melon -> Melon
[xxxxxxxx@dddddddddd String]$ 

lc
lc([EXPR])

my $target = "MELON";
my $lcstr = lc($target);

lcfirst
lcfirst([EXPR])

my $target = "MELON";
my $lcfirststr = lcfirst($target);

サンプルプログラム

# lc関数/lcfirst関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $target = "MELON";
my $lcstr = lc($target);
print "$target -> $lcstr\n";

my $lcfirststr = lcfirst($target);
print "$target -> $lcfirststr\n";

[xxxxxxxx@dddddddddd String]$ perl test7-1_u.pl | nkf -w
MELON -> melon
MELON -> mELON
[xxxxxxxx@dddddddddd String]$ 

sprintf
sprintf(FORMAT,LIST)

my $str = sprintf("[%#5o]", 30);

サンプルプログラム

# sprintf関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $str = sprintf("[%#5o]", 30);
print "変換結果:$str\n";

my $shortstr = sprintf("%.3s", "September");
print "変換結果:$shortstr\n";

[xxxxxxxx@dddddddddd String]$ perl test8-1_u.pl | nkf -w
変換結果:[  036]
変換結果:Sep
[xxxxxxxx@dddddddddd String]$ 

chop
chop([VARIABLE])

my $src = "abc";
chop($src);

サンプルプログラム

# chop関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $src = "abcde";
print "削除前 : $src\n";

my $choppedstr = chop($src);
print "削除後 : $src\n";
print "削除された文字 : $choppedstr\n";

[xxxxxxxx@dddddddddd String]$ perl test9-1_u.pl | nkf -w
削除前 : abcde
削除後 : abcd
削除された文字 : e
[xxxxxxxx@dddddddddd String]$ 

chomp
chomp([VARIABLE])

my $src1 = "abc\n";
chomp($src1);

my $src2 = "abc";
chomp($src2);

サンプルプログラム

# chomp関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $src1 = "abc\n";
my $src2 = "def";
my $src3 = "ghi\n";
print "削除前 : (start)$src1,$src2,$src3(end)\n";

my $num1 = chomp($src1);
my $num2 = chomp($src2);
my $num3 = chomp($src3);
print "削除後 : (start)$src1,$src2,$src3(end)\n";
print "削除された文字数 : $num1,$num2,$num3\n";

[xxxxxxxx@dddddddddd String]$ perl test10-1_u.pl | nkf -w
削除前 : (start)abc
,def,ghi
(end)
削除後 : (start)abc,def,ghi(end)
削除された文字数 : 1,0,1
[xxxxxxxx@dddddddddd String]$ 

hex
hex([EXPR])

my $num1 = hex("3B");
my $num2 = hex("0xa4");

サンプルプログラム

# hex関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $num1 = hex("3B");
my $num2 = hex("0xa4");

print "3B -> $num1\n";
print "0xa4 -> $num2\n";

[xxxxxxxx@dddddddddd String]$ perl test11-1_u.pl | nkf -w
3B -> 59
0xa4 -> 164
[xxxxxxxx@dddddddddd String]$ 

oct
oct([EXPR])

my $num1 = oct("045");
my $num2 = oct("0xA4");
my $num3 = oct("0b1101");
my $num4 = oct("37");

サンプルプログラム

# oct関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

my $num1 = oct("045");
my $num2 = oct("0xA4");
my $num3 = oct("0b1101");
my $num4 = oct("37");

print "045 -> $num1\n";
print "0xA4 -> $num2\n";
print "0b1101 -> $num3\n";
print "37 -> $num4\n";

[xxxxxxxx@dddddddddd String]$ perl test12-1_u.pl | nkf -w
045 -> 37
0xA4 -> 164
0b1101 -> 13
37 -> 31
[xxxxxxxx@dddddddddd String]$ 

chr
chr([NUMBER])

my $charstr = chr(75);

サンプルプログラム

# chr関数
#
use strict;
use warnings;
use utf8;
binmode STDIN, ':encoding(cp932)';
binmode STDOUT, ':encoding(cp932)';
binmode STDERR, ':encoding(cp932)';

for (my $chrno = 72; $chrno < 78; $chrno++){
  my $charstr = chr($chrno);
  print "$chrno = $charstr\n";
}

[xxxxxxxx@dddddddddd String]$ perl test13-1_u.pl | nkf -w
72 = H
73 = I
74 = J
75 = K
76 = L
77 = M
[xxxxxxxx@dddddddddd String]$ 

ord
ord([EXPR])

my $chrnum = ord("ABC");

サンプルプログラム

[xxxxxxxx@dddddddddd String]$ perl test14-1_u.pl | nkf -w
C = 67
a = 97
l = 108
e = 101
n = 110
d = 100
a = 97
r = 114
[xxxxxxxx@dddddddddd String]$