#!/usr/bin/perl @searchstr = ("acha" , "porute" , "piipo"); @start = grep /^ac/, @searchstr; @end = grep /po$/, @searchstr; @start_ng = grep /^aca/, @searchstr; print "Content-type:text/html\n\n"; print "<br>"; print "先頭文字が「ac」から開始 = @start<br>"; print "終了文字が「po」で終了 = @end$&t;br>"; print "指定した文字以外「aca」の場合 = @start_ng<br>"; ●出力結果 先頭文字が「acha」から開始 = acha 終了文字が「po」で終了 = piipo 指定した文字以外の場合 =