Tabs to spaces

From JmPm

Revision as of 12:27, 14 March 2007 (view source) Amire80 (Talk | contribs) (from old wiki) ← Older edit

Revision as of 12:42, 14 March 2007 (view source) Amire80 (Talk | contribs) m (Protected "Tabs to spaces": spam [edit=autoconfirmed:move=autoconfirmed]) Newer edit →

---

Revision as of 12:42, 14 March 2007

sub Tab2Space {
   my ($line) = @_;
   $line =~ s/^\t/        /;   # 8 leading spaces if initial tab
   while ($line =~ s/^([^\t]+)(\t)/$1 . ' ' x (8 - length($1) % 8)/e) {
   }                           # replace each tab with right num of spaces
   return $line;
}