perl switch..case实现

2010-12-13

一直以为perl 不支持switch...case这中语句结构。的确perl并不原生支持像c 和 java那种 switch...case的语句结构。 不过perl有两种方法实现一个是 ‘use switch’ http://perldoc.perl.org/Switch.html 这里可以找到教程 还有就是 通过巧妙的算法 实现

#!/usr/bin/perl -w
use strict;
my $var = 2;
SWITCH: {
  $var == 1 && do { print '\$var = 1\n'; last SWITCH; };
  $var == 2 && do { print '\$var = 2\n'; last SWITCH; };
  $var == 3 && do { print '\$var = 3\n'; last SWITCH; };
  print '\$var is not equal with 1 or 2 or 3\n';
}

这下我算是out了,重新认识perl