tabs2spaces

Perl

Public Domain

Convert tab characters to the appropriate number of spaces

Download (right click, save as, rename as appropriate)

Embed

       

Tags:

expand Perl space spaces tab tabs text whitespace 
1
2
3
4
5
sub tabs2space($) {
 my $str = shift;
 1 while $str =~ s/\t+/' ' x (length($&)*8 - length($`)%8)/e;
 return $str;
}