本示例演示了如何利用Perl语言的代码块(BLOCK)、标签(Label)和do语句来实现switch。
知识点:

* 代码块(BLOCK)
* 标签(Label)
* do语句
* last语句


#!/usr/bin/perl
# switch.pl by LoRui
# Copyright (c) 2010 www.LoRui.com
# Perl语言的switch实现

use strict;
use warnings;

print <<FS;
请选择你的出行方式:
Q: 汽车
H: 火车
F: 飞机
U: UFO
FS
chomp(my $fs = getc);
$fs = uc($fs);

SWITCH:{
$fs eq 'Q' && do {
print '大广';
last SWITCH;
}; #case 'Q'
$fs eq 'H' && do {
print '京九';
last SWITCH;
}; #case 'H'
$fs eq 'F' && do {
print '空客';
last SWITCH;
}; #case 'F'
$fs eq 'U' && do {
print '火星';
last SWITCH;
}; #case 'U'

#default
print '(不详)';
} #SWITCH

__END__

上一篇 下一篇