程嶏清单7-15.txt

来自「< linux网络编程工具>>配套源码」· 文本 代码 · 共 8 行

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