作者satisf (= =)
看板Perl
标题[问题] 关於syntax error 找不到bug!!
时间Sun May 17 11:19:07 2009
我要写一个判断标题是属於哪一个区域的小程式
首先从我原有的档案内读出资料
并撷取title的部分
然後用正规表示法去判断是哪个区域
原本用if的写法可以
可是换成given when 以後
就变成出现一个syntax错误的讯息
可是我怎麽看都看不出来
请大大指点一下
以下是程式码!!
--------------------------------------------------
#! /usr/bin/perl
use warnings;
open(FHD,"test.txt")or die;
while($line=<FHD>)
{
my ($no,$date,$type,$title,$link)=split(/\,/,$line);
my $what='';
given($title){
when(not $title=~ /台北|北市|北县/){$what .='tpi';continue}
when(not $title=~ /台中|中部/) {$what .='taichung';continue}
when(not $title=~ /南投|埔里/) {$what .='nanto';continue}
when(not $title=~ /云林/) {$what .='winlin';continue}
when(not $title=~ /台南|南县|南市/){$what .='tainan';continue}
when(not $title=~ /高雄/) {$what .='kao';continue}
when(not $title=~ /屏东|垦丁|恒春/){$what .='pintong'}
}
say "$what";
}
--------------------------------------------------
谢谢!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.127.200.211
1F：推 LiloHuang:你这个应该是程式最前面少了加上 use feature ":5.10"; 05/17 15:31
先谢谢L大大 ，不过新增後 反而出现了
"Can't locate feature.pm in @INC"
是不是代表没有安装啊!!??
※ 编辑: satisf 来自: 140.127.220.24 (05/17 16:11)
2F：推 LiloHuang:你有装 Perl 5.10 吗 @@" 理论上应该要有才是 05/17 16:59