程嶏清单7-16.txt

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

$word = "[box]"；
    foreach  (qw(in[box] out[box] whit[box]))
{
        if (/ \Q$word\E/ )
{
     print "$_ matched!\n";
}    
}