程嶏清单7-16.txt

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

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