とあるエンジニアの闇歴史帳

この文書は読取専用です。文書のソースを閲覧することは可能ですが、変更はできません。もし変更したい場合は管理者に連絡してください。

====== 文字列を一文字ずつ分割する(半角のみ) - Perl ======
~~socialite~~
<note important>※この記事は2007年03月04日に書かれた物です</note>

文字列を分解し、1文字ずつ処理を行いたい。半角、1バイト文字のみ(英数字など)だけなら、標準のsplit関数を用いれば良い。
splitの分割条件で何も指定しないと、1byteずつ分割してくれる。

===== サンプル =====
<code perl>
;#
;#文字列を1文字ずつ分割する (半角のみ)
;#

#-- 分割 --#
@char = str2char('Hello! World');

#-- 表示 --#
foreach my $c (@char){
	print "$c\n";
}

#---------------------------------------
#1byteずつ分割する
#---------------------------------------
sub str2char{
	my $str = shift;

	return(
		split(//, $str)
	);
}
</code>

===== 実行例 =====
<code>
H
e
l
l
o
!

W
o
r
l
d
</code>

===== 関連書籍 =====
{{amazon>jp:4873113148}}
<html><p style="clear:both"></p></html>

{{amazon>jp:4798139815}}
<html><p style="clear:both"></p></html>

{{tag>CGI・Perl例文集 Perl 文字列}}
~~socialite~~

とあるエンジニアの闇歴史帳

ユーザ用ツール

関連ページ

ページ用ツール