Fixed length records: Difference between revisions
→{{header|Perl 6}}: Add a Perl 6 example
(Added Go) |
Thundergnat (talk | contribs) (→{{header|Perl 6}}: Add a Perl 6 example) |
||
Line 486:
text2block("block.txt", "block2.dat")
}</lang>
=={{header|Perl 6}}==
Link to a copy of the input file used: [https://github.com/thundergnat/rc/blob/master/resouces/flr-infile.dat flr-infile.dat]
Essentially the same as task [[Selective_File_Copy]] except more boring.
<lang perl6>$*OUT = './flr-outfile.dat'.IO.open(:w, :bin) or die $!; # open a file in binary mode for writing
while my $record = $*IN.read(80) { # read in fixed sized binary chunks
$*OUT.write: $record.=reverse; # write reversed records out to $outfile
$*ERR.say: $record.decode('ASCII'); # display decoded records on STDERR
}
close $*OUT;</lang>
{{out}}
<pre>8.........7.........6.........5.........4.........3.........2.........1...1 eniL
2 eniL
3 eniL
4 eniL
6 eniL
7 eniL
............................................................8 enil detnednI
NIGRAM TR 9 eniL</pre>
=={{header|REXX}}==
| |||