Perl インタプリタに書けたらエラーが発生するスクリプトを書いてみた。エラー出力がスクリプトに等しい、エラー Quine。 syntax error at a.pl line 2, at EOF Execution of a.pl aborted due to compilation errors. 実行結果。 [takeyuki@sunya ~]$ perl …

標準出力だけでなく、標準エラー出力する Quine を書いてみた。やってみてわかったことは、たいして面白くないってこと。ヒアドキュメント + 正規表現置換技、とはまったく別の方法の Quine を考える方が面白いだろう。 use strict; use warnings; my $x = <…

あるクラス Stuff のコンストラクタには文字列を渡す。 my $stuff = new Stuff($string); で、オプショナルな引数は名前つきの引数で渡したい。そのとき、こういう風に書くのはどうだろうか。 my $stuff = new Stuff(code => q/353/, flag => 1, $string); #…