Revision as of 16:56, 17 August 2013 (view source) rosettacode>Gvx m (→‎{{header\|Déjà Vu}}: concat ( is now concat( due to new string library) ← Older edit		Revision as of 13:28, 5 December 2013 (view source) Trizen (talk \| contribs) m (→‎{{header\|Perl}}) Newer edit →
Line 139: =={{header\|Perl}}== <lang perl># this is file narc.pl local $/; print do { ~~local $/;~~ open 0~~, $0 or die $!~~; <0> } eq <> ? "accept" : "reject";</lang> Run: <lang>perl narc.pl < narc.pl</lang>

Narcissist: Difference between revisions

Narcissist (view source)