記号だけのPerlプログラム...

Perl

完全にネタです。
YAPC::Asiaでmixiさんが出されていた広告に書かれていたPerlが
気になってたら、ネタが明かされたいたのでマネしてやってみました。
http://alpha.mixi.co.jp/blog/?p=3668

Perlの文字列は2つの文字列の論理演算で表現することができるらしいです。
参考URL http://perl-users.jp/articles/advent-calendar/2010/sym/5


delaemon.pl

#!/usr/bin/perl
print + ('`'^'$').('`'^'%').('`'^',').('`'^'!').('`'^'%').('`'^'-').('`'^'/').('`'^'.')."!!\n";

以前、こんなワンライナー作ってみた！これもマネだけど。

perl -le 'print $^ ^"71(.090:nq";'