初めての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|