half-baked/expand

   1 #!/usr/bin/env perl
   2
   3 # unicode-aware expand(1) replacement
   4
   5 use Encode;
   6 binmode STDIN, ":utf8";
   7 binmode STDOUT, ":utf8";
   8
   9 $tabstop = 4;
  10 $tabstopMinusOne = $tabstop - 1;
  11
  12 while(<STDIN>)
  13 {
  14         s/((?<A>[^\t]{0,$tabstopMinusOne})\t|(?<A>[^\t]{$tabstop}))/sprintf "%s%s", $+{A}, " " x ($tabstop - length $+{A})/ge;
  15         print;
  16 }