Takehiko Kodama: July 2009 Archives

ご存じのとおり、Perlのsplit関数は、指定したセパレーターで文字列を分割してリストにします。
使い方とサンプルは下記の通り。

■使い方
split /PATTERN/, EXPR, LIMIT
split /PATTERN/, EXPR
split /PATTERN/
split
■サンプル
$var_before = "Sato:Suzuki:Kimura";
@list = split(/:/, $var_before);

@listの内容は、下のようになっています。※Data::Dumperを使用した出力。
$VAR1 = 'Sato';
$VAR2 = 'Suzuki';
$VAR3 = 'Kimura';

そして、この逆の処理をしてくれるのが、join関数です。
$var_before = "Sato:Suzuki:Kimura";
@list = split(/:/, $var_before);
$var_after = join(":", @list);

$var_afterの内容は、下のようになって$var_beforeと同じになりました。
$VAR1 = 'Sato:Suzuki:Kimura';


でも、splitしてjoinして元に戻すのは、はたしてこの方法で良いのでしょうか?

About this Archive

This page is a archive of recent entries written by Takehiko Kodama in July 2009.

Takehiko Kodama: August 2008 is the previous archive.

Find recent content on the main index or look in the archives to find all content.