Greyscale bars/Display: Difference between revisions
m
→{{header|Perl 6}}: better message if file open fails
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl 6}}: better message if file open fails) |
||
Line 1,072:
<lang perl6>my ($width,$height) = 1280,768;
my $PGM = open "Greyscale-bars-perl6.pgm", :w
$PGM.print: qq:to/EOH/;
| |||