Print itself: Difference between revisions
m
→{{header|Perl}}: shorter alternative
m (→{{header|Perl}}: shorter alternative) |
|||
Line 62:
open my $in, '<', $0 or die;
print while <$in>;
close($in)
# @ARGV=$0; print <> # slurp without an explicit open()</lang>
=={{header|Phix}}==
| |||