指鹿為馬 Perl 版

Perl 可以用 *a = *b 這種寫法來做函式別名。而且可以用中文寫(檔案內容要以 utf8 編碼):

#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use encoding 'utf8';

sub 馬 { "馬函式" };

 # 指鹿為馬
*鹿 = *馬;

print 鹿(), "\n";

函式名也可以是中文。事實上，類別名也可以：

package 糜鹿;
sub 速 { "慢" };

package main;

print 糜鹿->速, "\n";

很驚人而有趣的事實。