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

先写个文件

echo "some text" > data.txt
然后运行

yourpl.pl data.txt

<> 是迭代默认的文件句柄的

或者

while (<STDIN>) {

...

2009/12/10 天翼 张 <icann.net@gmail.com>

各位高手，我是一个刚学习perl的新手，学到正则表达式的模式测试程序这一节时书中列出了一个用来某些字符串的模式匹配的程序。可是我不知道怎样使
用，不知到是在命令提示符窗口中输入来测试还是另外调用一个程序来测试我用了两种方法都不行。望各位高手们指点一二。下面是这个程序。
#!/usr/bin/perl
while(<>){
   chiomp;
   if(/YOUR_PATTERN_GOES_HERE/){
     print"Matched:|$`<$&>$'|\n";
    }else{
     print "\uno match:|$_|\n";
    }
}

--
如果觉得无聊，您不妨访问Google Reader消遣 http://www.google.com/reader/view
要尝试黑版本Google，请访问 http://tinyurl.com/yk3yp7j

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
 要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
 要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
 更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛

-~----------~----~----~----~------~----~------~--~---