Perl: 文字列を扱う

Perl: string.pl

use strict;
use warnings;

# 結合
my $join1 = 'aaa'.'bbb';
print "$join1\n";

# 結合(別の方法)
my $join2 = join(',', 'aaa', 'bbb', 'ccc');
print "$join2\n";

# 分割(,で分割)
my @record = split(/,/, 'aaa,bbb,ccc');
print "@record\n";

# 文字列の長さ
my $length = length('abcdef');
print "$length\n";

# 切り出し
my $substr = substr('abcd', 0, 2);
print "$substr\n";

# 検索(値が存在する位置番号を取得。見つからなかった場合は -1)
my $result = index('abcd', 'cd');
print "$result\n";

出力:

aaabbb
aaa,bbb,ccc
aaa bbb ccc
6
ab
2