指鹿為馬 Perl 版

| No Comments | No TrackBacks

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";

很驚人而有趣的事實。

No TrackBacks

TrackBack URL: http://pub.gugod.org/mt/mt-tb.cgi/284

Leave a comment