projects
/
oweals
/
openssl.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Stringify substitutions [some shells require it].
[oweals/openssl.git]
/
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