Revision 78ac7fa18d25f66c89adcb646c04d69b8c805ca7 authored by Andy Polyakov on 25 May 2015, 08:17:14 UTC, committed by Andy Polyakov on 26 May 2015, 08:07:59 UTC
RT#3859 Reviewed-by: Tim Hudson <tjh@openssl.org> (cherry picked from commit 60c268b21ac81cc6b1af5c5470282a613b96f6fd)
1 parent 11414f1
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 ...