文字列を一文字ずつ分割する(半角のみ) – Perl

  • このエントリーをはてなブックマークに追加
  • LINEで送る
この記事は 2007年3月4日 に書かれたものです

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

- Sponsored Link -

サンプル

;#
;#文字列を1文字ずつ分割する (半角のみ)
;#

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

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

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

    return(
        split(//, $str)
    );
}

実行例

H
e
l
l
o
!

W
o
r
l
d

このブログを応援する

お寄せいただいたお気持ちは全額サーバ代や次の記事を執筆するための原資として活用させていただいております。この記事が参考になった場合などぜひご検討ください。

PayPal(ペイパル)
PayPalで300円支払う
※金額は任意で変更できます。
※100円でも泣いて喜びますw
※住所の入力欄が現れた場合は「no needed」を選択ください
これまでのご協力者さま
- Sponsored Link -

ご質問やリクエストなどお気軽に。メールアドレスの入力は任意です。書き込みが反映されるまで時間がかかります。

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください