half-baked/expand

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