質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.49%

  • 正規表現

    936questions

    正規表現とは特定の文字列によるパターンマッチングを行う際に用いられる宣言型プログラミングです。

  • Perl

    501questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。

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

受付中

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 657

jororo0

score 3

前提・実現したいこと

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.

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • ikedas

    2016/11/25 15:44

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

    キャンセル

  • jororo0

    2016/11/27 20:35

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

    キャンセル

回答 2

0

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

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>

投稿

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/11/27 20:35

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

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

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

    キャンセル

0

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

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

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

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

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2016/11/27 23:08

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

    キャンセル

同じタグがついた質問を見る

  • 正規表現

    936questions

    正規表現とは特定の文字列によるパターンマッチングを行う際に用いられる宣言型プログラミングです。

  • Perl

    501questions

    Perlは多目的に使用される実用性が高い動的プログラミング言語のひとつです。