#!/usr/bin/perl
use constant TEISU => 777;
use constant {
HOGE => 'あああ',
HAGE => 'いいい'
};
2.型グロブとリファレンスを駆使して上書き禁止の変数にする
#!/usr/bin/perl -l
*TEISU=\777;
*KENSAKU=\(quotemeta 'てすと');
print $TEISU;
参考リンク
http://www2u.biglobe.ne.jp/~MAS/perl/waza/const.html
http://chaichan.web.infoseek.co.jp/perlnote/perlnote2008-03-153.htm
http://www.rfs.jp/sb/perl/02/02.html#TRY!%20%E5%AE%9A%E6%95%B0%E3%81%AE%E5%AE%A3%E8%A8%80