#!/usr/local/bin/perl
use strict;
use warnings;
use utf8; #プログラムはUTF8形式で記述
print "Content-type: text/html; charset=utf-8\n\n";
print "\n";
print "\n";
print "
\n";
print "CGI test\n";
print "\n";
print "\n";
print "------------------
\n";
# 結合
my $join1 = 'aaa' . 'bbb';
my $join2 = join(',', 'aaa', 'bbb', 'ccc');
my @a_test = ("aa", "bb", "cc");
print join("," , @a_test) . "
\n"; # コンマで区切る
my $join3 = '"' . join('","' , @a_test) . '"' ;
print "$join3
\n";
print join("" , @a_test) . "
\n"; # 空文字列の場合はリスト値を連結
print '"' . join('","' , @a_test) . '"' . "
\n"; # CSVデータの出力
# 分割
my @record = split(/,/, 'aaa,bbb,ccc');
print "@record
\n";
print "------------------\n
";
my $string1 = "abc,def,ghi";
# 文字列の分割
my @array2 = split(/,/, $string1);
print($_ . "\n
") foreach (@array2);
print("\n
");
# 分割数を指定
@array2 = split(/,/, $string1, 2);
print($_ . "
\n") foreach (@array2);
print("
\n");
# 分割するパターンも結果に含む
@array2 = split(/(,)/, $string1);
print($_ . "
\n") foreach (@array2);
print("
\n");
# 複数の分割文字を指定
@array2 = split(/[,e]/, $string1);
print($_ . "
\n") foreach (@array2);
# 長さ
my $length = length 'abcdef';
# 切り出し
my $substr = substr('abcd', 0, 2); # ab
# 検索
my $result = index('abcd', 'cd'); # 見つかった場合はその位置、見つからなかった場合は-1が返る
print "------------------
\n";
print "\n";
print "\n";