Remove lines from a file: Difference between revisions
Rename Perl 6 -> Raku, alphabetize, minor clean-up
(Solved in Groovy) |
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
||
Line 277:
}
</lang>
=={{header|BASIC}}==
Compatible with VB-DOS, QBasic, QuickBASIC 4.5, PDS 7.1, QB64
Line 2,067 ⟶ 2,068:
deletelines( \@ARGV ) ;</lang>
=={{header|Perl 6}}==▼
<lang perl6>sub MAIN ($filename, $beg, $len) {▼
my @lines = split /^^/, slurp $filename;▼
unlink $filename; # or rename▼
splice(@lines,$beg,$len) == $len or warn "Too few lines";▼
spurt $filename, @lines;▼
}</lang>▼
{{out}}▼
<pre>$ cal >foo▼
$ ./rmlines▼
Usage:▼
rmlines <filename> <beg> <len>▼
$ ./rmlines foo 1 2▼
$ cat foo▼
1 2 3 4 5 6 7 ▼
8 9 10 11 12 13 14 ▼
15 16 17 18 19 20 21 ▼
22 23 24 25 26 27 28 ▼
29 30 31▼
</pre>▼
=={{header|Phix}}==
Line 2,342 ⟶ 2,322:
(display-lines-to-file (append pfx (drop rest num)) file #:exists 'replace))
</lang>
(formerly Perl 6)
▲<lang perl6>sub MAIN ($filename, $beg, $len) {
▲ my @lines = split /^^/, slurp $filename;
▲ unlink $filename; # or rename
▲ splice(@lines,$beg,$len) == $len or warn "Too few lines";
▲ spurt $filename, @lines;
▲}</lang>
▲{{out}}
▲<pre>$ cal >foo
▲$ ./rmlines
▲ Usage:
▲ rmlines <filename> <beg> <len>
▲$ ./rmlines foo 1 2
▲$ cat foo
▲ 1 2 3 4 5 6 7
▲ 8 9 10 11 12 13 14
▲ 15 16 17 18 19 20 21
▲ 22 23 24 25 26 27 28
▲ 29 30 31
▲</pre>
=={{header|REXX}}==
| |||