#!/usr/bin/perlwhile (<>) { chomp; if (/パターンを記述/) { # パターンを指定 print "Matched: |$`$'|\n"; } else { print "No match. \n"; } } ■使い方 1. 「パターンを記述」の場所に、正規表現パターンを記述する 2. 上記プログラムを実行する 3. 文字…