#!/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++; }
# | Change | User | Description | Committed | |
---|---|---|---|---|---|
#1 | 10713 | Robert Cowham |
Populate //guest/robert_cowham/openssl/1.0.1j/... from //guest/robert_cowham/openssl/main/.... |
||
//guest/robert_cowham/openssl/main/util/tab_num.pl | |||||
#1 | 10711 | Robert Cowham | OpenSSL 1.0.1i |