| <![CDATA[
$string = 'abc,123,def';
($key,$value,$yobi) = split (/,/,$string,1);
print "($key)($value)($yobi)\n";
($key,$value,$yobi) = split (/,/,$string,2);
print "($key)($value)($yobi)\n";
($key,$value,$yobi) = split (/,/,$string,3);
print "($key)($value)($yobi)\n";
($key,$value) = split (/,/,$string,3);
print "($key)($value)\n";
($k1,$k2,$k3) = split (/,/,$string);
print "($k1)($k2)($k3)\n";
($a,$b,$c,$d,$e) = split(/([,-])/,"1-10,20");
print "$a $b $c $d $e \n";
($a,$b,$c,$d,$e) = split(/([,-])/,"1-10,20");
print "$a $b $c $d $e \n";
%in = ('file','test/cgi/bin');
@url = split(/\//,$in{'file'});
print $url[1];
]]> |
<![CDATA[
# カンマで、１に分離
# (abc,123,def)()()
# カンマで、２に分離
# (abc)(123,def)()
# カンマで、３つに分離
# (abc)(123)(def)
# カンマで、３つに分離
# (abc)(123)
# カンマで、全てを分離
# (abc)(123)(def)
# , - の区切で、分離
# 1 10 20
# 分離する区切も含む
# 1 - 10 , 20
# 連想配列のfileで連想
# 変数を / で分離
# ２番目の配列 cgiを表示
]]> |