o5r/acme
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

acme

Browse source
This commit is contained in:
Ev Bogdanov 2017-01-26 19:29:57 +03:00
commit c2271ba672
43 changed files with 886 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
bin/c- Executable file
View file

@ -0,0 +1,12 @@
#!/usr/bin/env perl
# default: 1 symbol comment: #, %
# need ARGV for comments like this: //
my ($symbol) = @ARGV;
my $offset = $symbol ? length $symbol : 1;
while (<STDIN>) {
print substr $_, $offset;
}