tools/untabify

   1 #!/usr/bin/perl
   2 #
   3 # untabify - convert tabs to spaces
   4 #
   5 # $Id: untabify,v 1.2 2002/03/07 22:52:57 ghostwolf Exp $
   6
   7 use Text::Tabs;
   8 $tabstop = 8;
   9 while (<>) { print expand($_) }
  10