ftp.cse.unsw.edu.au/2014.06.ftp.cse.unsw.edu.au.tar/ftp.cse.unsw.edu.au/pub/doc/languages/perl/nutshell/ch6/retab

Text File | 1992-10-18 | 260 b | 14 lines

#!/usr/bin/perl

# Usage: retab [-<tabwidth>] [files]

$sw = 4;
$sw = $1, shift if $ARGV[0] =~ /^-(\d+)/;

while (<>) {
    s#^(\t+)#' ' x (length($1) * 8)#e;
    s#^( *)#' ' x (length($1) * $sw / 8)#e;
    s#^(( {8})*)#"\t" x (length($1) / 8)#e;
    print;
}