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