目印の文字列でレコードを区切りたい

質問

お世話になります、Perl初心者です。
正規表現で探したのですがたどりつけなかったので質問させて下さい。
以下のようなレコード（文字列）があります。
「abcxxxiiiislslslfjdkasabcdasdsdfa;ljkabcdfs」
これを「abc」で区切り以下のように３つに分けたいのです。

abcxxxiiiislslslfjdkas
abcdasdsdfa;ljk
abcdfs

abcから次のabcまでをひとつの文字列にして変数に格納したいのです。
どうすればいいでしょうか？教えて下さい。

回答No.1

moon_piyo · ベストアンサー

文字列が $_ にはいってて @b に結果を格納する，とします

作戦その1
$_ = "abcxxxiiiislslslfjdkasabcdasdsdfa;ljkabcdfs";
@b = /(abc.*?)(?=abc|$)/g;

上記のコードでエラーがでるようでしたら...

作戦その2
$_ = "abcxxxiiiislslslfjdkasabcdasdsdfa;ljkabcdfs";
@a = split(/(abc)/);
shift @a;
@b = ();
push(@b, join("", splice(@a, 0, 2))) while (@a);

でどでしょ

お礼

お礼が遅くなってすみません。ありがとうございました。

回答No.2

BLUEPIXY

@data = split(/abc/,"abcxxxiiiislslslfjdkasabcdasdsdfa;ljkabcdfs");
して、"abc" . $data[n];
する

お礼

お礼が遅くなってすみません。ありがとうございました。