初めてのPerl 第8章 正規表現によるマッチ 練習問題1

パターンテストプログラムを利用して、文字列matchにマッチするパターンを記述してください。文字列beforematchafterを入力値として与えてください。

#!/usr/bin/perl

use strict;
use warnings;

use 5.010;

while (<>) {                   # take one input line at a time
  chomp;
  if ($_ =~ /match/) {
    print "Matched: |$`<$&>$'|\n";  # the special match vars
  } else {
    print "No match: |$_|\n";
  }
}

実行したコマンドは以下の通りです。

$ ./practice1.pl
beforematchafter

結果は以下の様になりました。

Matched: |before<match>after|