Perl利用代码块、标签和do语句实现switch

本示例演示了如何利用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__

热度: 3% [?]