关于swich的错误

kairi

my @array=<STDIN>;
until (scalar @array==0){
my $k=shift @array;
chomp($k);
swich ($k) {
      case ('1') { print 1; }
      case ('2') { print 2; }
      case ('3') { print 3 ; }
      case ('4') { print 4; }
      case ('5') { print 5; }
}
}

这代码哪里错了老显示
syntax error at Untitled line 9, near ") {"
syntax error at Untitled line 11, near ") {"

wdavid

switch

kairi

...改完后还是有错误

wdavid

在第一行加上: use Switch;

cobrawgl

lz 不会是看C语言的教材来学perl吧

s5unty

这是我知道的最接近 C 语法的形式，已经知足了:

switch: for ($where) {     /Anywhere/ && do {         ;         last;     };    (/Foo/ ||     /bar/)&& do {         ;         last;     }     # default     die "unknown value for form variable where: ‘$where’"; }

[ 本帖最后由 s5unty 于 2007-9-10 20:27 编辑 ]

magicsky

use Switch;

kairi

谢7楼

JasonLee8872

不是感谢谁的问题，LZ应该知道Perl没有switch语句……

kairi

什么叫没有所以要加use switch么？