Create a file on magnetic tape: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
mNo edit summary |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 118:
This was developed when tape drives used half-inch tapes in lengths up to 2,400 feet and seven or nine-track recording, storing up to about 150MB per reel - much depended on the length lost to IRG usage between blocks, but block sizes beyond 20,000 were considered large. Subsequent tape designs have included 18, 36, and 128 tracks, helical recording and storage capacities in tens of gigabytes. Naturally, the tape labelling protocols have become even more complex, but, these matters are handled by more complex operating systems.
=={{header|Go}}==
Line 234 ⟶ 233:
DATA TO BE WRITTEN TO TAPE
/* </lang>
=={{header|Julia}}==
Line 272 ⟶ 270:
t.writeln "Hi Tape!"
t.close</lang>
=={{header|Perl 6}}==▼
<lang perl6>my $tape = open "/dev/tape", :w or die "Can't open tape: $!";▼
$tape.say: "I am a tape file now, or hope to be soon.";▼
$tape.close;</lang>▼
=={{header|Phix}}==
Line 298 ⟶ 291:
(λ() (displayln "I am a cheap imitation of the Perl code for a boring problem")))
</lang>
(formerly Perl 6)
▲<lang perl6>my $tape = open "/dev/tape", :w or die "Can't open tape: $!";
▲$tape.say: "I am a tape file now, or hope to be soon.";
▲$tape.close;</lang>
=={{header|REXX}}==
Line 343 ⟶ 342:
}
}</lang>
=={{header|Tcl}}==
Tcl does not have built-in special support for tape devices, so it relies on the OS to handle most of the details for it. Assuming a relatively modern Unix:
| |||