perl - perl に <% マークを正しく認識させる方法

Question

perl で既存のプロジェクトを継続する必要がありますが、私は初心者であり、解決できない問題に遭遇しました。コードはこの種の構文でいっぱいです

if ( $Session->{CurrentUserEntityId} )
{
  %>

  <%=&get_leftnav_html('index')%>

  <div class="mainContent">

    <!-- 
    The following tile colors are accepted:
    #A200FF, #FF0097, #00ABA9, #8CBF26, #A05000, #E671B8, #F09609, #1BA1E2, #E51400, #339933
    -->

    <div class="tile_container">
        <div class="tile">
            (...)
        </div>

などなど...サーバーではすべてが正しいですが、Apacheエラーログに次のエラーが表示されるため、ローカルホストでコードを実行できます。

[エラー] /var/www/piqresearch/piqresearch/marketData/htdocs/index.pl 行 1 の <> 演算子が終了していません。\n

open <% と %> を同じ行に書き込んだ場合、perl はそれを受け入れますが、次の発生時に終了し、プロジェクトには何百ものファイルとおそらく何千ものこのマークが含まれます。解決策をネットで検索したり、記事、チュートリアル、およびスタック オーバーフローで検索したりしましたが、何も見つかりませんでした。なんらかの設定ミスだと思うのですが、どうすればいいのかわかりません。ご協力ありがとうございました。

Answer 1

それは Perl ではありません。それがメイソンのテンプレートです。テンプレートを処理するには、Perl ではなく Mason を使用する必要があります。