Rewrite commenting scripts

bin/c+

@@ -1,10 +1,9 @@
-#!/usr/bin/env perl
+#!/usr/bin/env bash
 
-my ($symbol) = @ARGV;
+symbol="$1"
 
-# default: | c+ '#'
-$symbol = '#' unless $symbol;
+if [ ! "$symbol" ]; then
+	symbol='#'
+fi
 
-while (<STDIN>) {
-	print "$symbol$_";
-}
+sed "s!^!$symbol!"

bin/c-

@@ -1,12 +1,9 @@
-#!/usr/bin/env perl
+#!/usr/bin/env bash
 
-# default: 1 symbol comment: #, %
-# need ARGV for comments like this: //
+symbol="$1"
 
-my ($symbol) = @ARGV;
+if [ ! "$symbol" ]; then
+	symbol='#'
+fi
 
-my $offset = $symbol ? length $symbol : 1;
-
-while (<STDIN>) {
-	print substr $_, $offset;
-}
+sed "s!^\($symbol\)*!!"