Perl6の正規表現における後読みの中での量指定子の書き方について

Question

###前提・実現したいこと
Perl6を使って以下のような文を置換させたいのですが、エラーが出て動きません。
Perl6か.NETでないと先読み後読みの中で量指定子が使えないらしいのです。
outerタグの中だけを対象にするとどうしても後読みが必須になるのでこれを実現できる書き方を教えていただけませんか？

これから

<outer>text1,text2,text3</outer>
<other>o1,o2,o3</other>

これに

<outer>
        <inner>text1</inner>
        <inner>text2</inner>
        <inner>text3</inner>
</outer>
<other>o1,o2,o3</other>

###発生している問題・エラーメッセージ

エラーメッセージ
===SORRY!=== Error while compiling C:\Users\****\Desktop\Perl6test/replace_co
mma.pl6
Unsupported use of /i; in Perl 6 please use :i
at C:\Users\****\Desktop\Perl6test/replace_comma.pl6:3
------> ter outer.[^\,]+>\,<before .\/outer>/</i<HERE>nner>\n\t\t<inner>/;

###該当のソースコード

my $t = '<outer>text1,text2,text3</outer>';
$t~~s:g/<after outer.[^\,]+>\,<before .\/outer>/</inner>\n\t\t<inner>/;
$t~~s:g/<after outer.>/\n\t\t<inner>/;
$t~~s:g/<after .\/outer>/<inner>/\n;

###補足情報(言語/FW/ツール等のバージョンなど)
perl6 -v
This is Rakudo version 2016.07.1 built on MoarVM version 2016.07
implementing Perl 6.c.

Comments

[ikedas]

関連タグの「PHP」は「Perl」にかえたほうがいいと思います。

[jororo0]

ご指摘ありがとうございます。

Answer 1

この種の処理のほとんどに言えることですが、少数の正規表現でテキスト全体を一気に処理しようとするのではなく、テキストデータの構造を把握した上で少しずつ処理したほうがいいです。

こういう場合、次のような手法が使われます。

• Perl 6ではgrammerを使うのが一般的です。
  例としてXML::Parser::Tinyなどを見てみて下さい (これが一番よい例だということではなく、探して最初に見つかっただけです。ほかにもあります)。

• Perl 5だとm/\G ... /gcを使ってトークナイザを書く方法をよく使います。
  perlfaq6「正規表現の中で \G を使うと何が良いのですか?」を読んで下さい。
  実例としてはMIME::Wordsのdecode_mimewords()など (これも最初に見つかっただけです)。

Comments

[jororo0]

回答ありがとうございます。
とりあえずgrammar の書き方から順にみていこうかと思います。

Answer 2

エスケープされていないバックスラッシュが正規表現中に出現して、エラーになっていました。
少し形を変えてみましたが、いかがでしょうか?

my $t = "<outer>text1,text2,text3</outer>\n<other>o1,o2,o3</other>";
$t~~s:g/<before .*\/outer>\,/<\/inner>\n\t\t<inner>/;
$t~~s:g/\<outer\>/\<outer\>\n\t\t<inner>/;
$t~~s:g/\<\/outer\>/\<\/inner\>\n<\/outer>/;

出力結果

$ perl6 test.p6
<outer>
                <inner>text1</inner>
                <inner>text2</inner>
                <inner>text3</inner>
</outer>
<other>o1,o2,o3</other>

Comments

[jororo0]

回答ありがとうございます。
こちらでも動作しました。

しかし、1度目の置換がマッチする理由がよくわかりません。
/outer,
↑のような文に一致すると思います。正規表現では
(?<=/outer),
↑のようになると思いますが、動作が違うのでしょうか？

また、後出しで申し訳ないのですが、下記のような文の場合は<before .*\/outer>となっているためか期待する結果と違うようです。
<other>o1,o2,o3</other><outer>text1,text2,text3</outer>\n<other>o1,o2,o3</other>