WEB相談室

Webページ作成に関しての何でも掲示板です。

タイトル:perlで文字列をsplitで配列にする方法。

0:[投稿] mato [2005/06/02 12:08 ][環境:ie linux, perl v5.8.3]

perlで文字列を分割して以下のように配列に入れたいのですが、

--------------------------
my $str = "あ。     い。う。え。";

【 上のような文字列を以下のように配列で取得したい。】

my @str = (
 'あ。     ',
 'い。',
 'う。',
 'え。'
);
--------------------------

split("。", $str); としてしまうと、"。"の後ろにあるスペースが取得できないため、使えませんでした。
そこで、このようにしてみましたが、

my $str = "あ。     い。う。え。";
my @str = split(/(?=。)/, $str);
print join("\n", @str);

(以下のように表示される)

。     い
。う
。え

あともう少しで希望どおりのsplitができそうなのですが、難しいです(*_*)
なに良い方法は無いでしょうか?


1:[回答] 通りすがり [2005/06/02 13:14 ]

split 使わなきゃだめ?
配列に代入したいだけなら

my @str = $str =~ /[^。]+。\s*/g;

とかでいけそう。

回答(必須): 状態:

お名前(必須):

e-mail:

URL:




[戻る]

ChaichanPAPA's World