程嶏清单7-15.txt

< linux网络编程工具>>配套源码

$word = "dog";
$sentence = "Every dog has his day.";
if ($sentence =~ / \b$word\b/)
{
   print "There is a word $word in the sentence .\n ";
}