customisable spark characters

Distributes over any number of unicode glyphs.  Hardcode interpreter for now
so -CA can be applied to easily decode arguments from UTF-8.

diff --git a/barcat b/barcat
index 82cf7d6e42d7a24702dbec28be3688d8535ca0cc..442559c804a05ac433f2e473c48cc4c19b3e2d37 100755 (executable)
--- a/barcat
+++ b/barcat
@@ -1,4 +1,4 @@
-#!/usr/bin/env perl
+#!/usr/bin/perl -CA
 use 5.018;
 use warnings;
 use utf8;
@@ -47,8 +47,8 @@ GetOptions(\%opt,
                );
        },
        'markers|m=s',
-       'spark!' => sub {
-               $opt{spark} = [split //, '⎽▁▂▃▄▅▆▇█'];
+       'spark:s' => sub {
+               $opt{spark} = [split //, $_[1] || '⎽▁▂▃▄▅▆▇█'];
        },
        'stat|s!',
        'unmodified|u!',