Revision 510edea8db5e983fc53a2d9e61b2acf25e5f0508 authored by Matt Caswell on 21 January 2015, 16:12:59 UTC, committed by Matt Caswell on 22 January 2015, 09:45:01 UTC
Reviewed-by: Tim Hudson <tjh@openssl.org>
1 parent 3bc28b8
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 ...
