DZone Snippets is a public source code repository. Easily build up your personal collection of code snippets, categorize them with tags / keywords, and share them with the world
Tabs-to-space Function
This Perl function returns its argument with any tabs it contained converted into the appropriate number of spaces.
sub tabs2space($) {
my $str = shift;
1 while $str =~ s/\t+/' ' x (length($&)*8 - length($`)%8)/e;
return $str;
}
