Selective file copy: Difference between revisions

m
→‎{{header|Perl 6}}: meh. another typo
m (→‎{{header|Perl 6}}: meh. another typo)
Line 764:
 
sub get-record($fh, $bytes) {
my $record = $infh.read($bytes);
return ().Slip unless $record.elems == $bytes;
my %r = @format.map: {
10,333

edits