关于swich的错误

kairi

UID: 9728
帖子: 111
积分: 255
在线时间: 17 小时

1^# kairi 发表于 2007-09-10 18:09

关于swich的错误

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

UID: 22940
帖子: 72
积分: 165
在线时间: 7 小时

2^# wdavid 发表于 2007-09-10 18:12

switch

kairi

UID: 9728
帖子: 111
积分: 255
在线时间: 17 小时

3^# kairi 发表于 2007-09-10 18:16

...改完后还是有错误

wdavid

UID: 22940
帖子: 72
积分: 165
在线时间: 7 小时

4^# wdavid 发表于 2007-09-10 18:41

在第一行加上: use Switch;

cobrawgl

UID: 21059
帖子: 1
积分: 2
在线时间: 10 分钟

5^# cobrawgl 发表于 2007-09-10 19:33

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

s5unty

UID: 24500
帖子: 88
积分: 202
在线时间: 10 小时

6^# s5unty 发表于 2007-09-10 20:26

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

switch: for ($where) {
/Anywhere/ && do {
      ;
      last;
};

(/Foo/ ||
/bar/)&& do {
      ;
      last;
}

# default
die "unknown value for form variable where: ‘$where’";
}

magicsky

UID: 42812
帖子: 86
积分: 197
在线时间: 10 小时

7^# magicsky 发表于 2007-09-10 21:38

use Switch;

kairi

UID: 9728
帖子: 111
积分: 255
在线时间: 17 小时

8^# kairi 发表于 2007-09-11 09:49

谢7楼

JasonLee8872

UID: 29802
帖子: 24
积分: 55
在线时间: 10 分钟

9^# JasonLee8872 发表于 2007-09-11 20:00

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

kairi

UID: 9728
帖子: 111
积分: 255
在线时间: 17 小时

10^# kairi 发表于 2007-09-12 09:46

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