Sign in
cobalt
/
cobalt
/
2a8c847d785c1602f60915c8e0112e0aec6a15a5
/
.
/
src
/
third_party
/
openssl
/
openssl
/
util
/
tab_num.pl
blob: a81ed0edc2452ce7b1ae9adc857c187e1ca01de9 [
file
] [
log
] [
blame
]
#!/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
++;
}