lib/openssl/util/tab_num.pl

   1 #!/usr/local/bin/perl
   2
   3 $num=1;
   4 $width=40;
   5
   6 while (<>)
   7         {
   8         chop;
   9
  10         $i=length($_);
  11
  12         $n=$width-$i;
  13         $i=int(($n+7)/8);
  14         print $_.("\t" x $i).$num."\n";
  15         $num++;
  16         }
  17