Revision e6738d4be8d4ef42f213921351e7e9df79be7d1a authored by Ben Laurie on 02 February 2004, 15:25:30 UTC, committed by Ben Laurie on 02 February 2004, 15:25:30 UTC
1 parent 4c6d0b7
tab_num.pl
#!/usr/local/bin/perl
$num=1;
$width=40;
while (<>)
{
chop;
$i=length($_);
$n=$width-$i;
$i=int(($n+7)/8);
print $_.("\t" x $i).$num."\n";
$num++;
}

Computing file changes ...