ヒアドキュメントを使わずに Quine を書いてみた。予想どおりヒアドキュメントを使うよりもサイズが大きい。s///;print を使う技ではこれが限界なんだろうか。 $,=chr(39);$_='$,=chr(39);$_=u;s/u/$,$_$,/;print';s/u/$,$_$,/;print [takeyuki@sunya ~]$ pe…

my ($x, $y) = ... という形だけではなく、 (my $x, $y) = ... という形も書ける。というか、 (my $x, my $y) = ... を簡潔に書いたのが my ($x, $y) = ... なのか。 use strict; use warnings; my ($x, $y) = qw/abc def/; { (my $x, $y) = qw/123 456/; } …

use strict; use warnings; sub cut { my $s = shift; $s =~ s/^ //mg; $s; } my $s = cut <<'__EoD__'; use strict; use warnings; sub cut { my $s = shift; $s =~ s/^ //mg; $s; } my $s = cut <<'__EoD__'; x my $t = $s; $t =~ s/^/ /mg; $s =~ s/x/$t\…