third-party libs
This commit is contained in:
parent
f836927d3a
commit
b154ee9266
3667 changed files with 854591 additions and 0 deletions
17
third-party/openssl-1.0.0d/util/tab_num.pl
vendored
Executable file
17
third-party/openssl-1.0.0d/util/tab_num.pl
vendored
Executable file
|
|
@ -0,0 +1,17 @@
|
|||
#!/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++;
|
||||
}
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue