[PerlChina] 请教高手们一个模式测试程序的问题

各位高手，我是一个刚学习perl的新手，学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
用，不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
#!/usr/bin/perl
while(<>){
chiomp;
if(/YOUR_PATTERN_GOES_HERE/){
print"Matched:|$`<$&>$'|\n";
}else{
print "\uno match:|$_|\n";
}
}
--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---