Sign in
gem5
/
public
/
gem5-resources
/
8ccd059d5dcaaeffe15cd93c17f1e76e92907662
/
.
/
src
/
parsec
/
disk-image
/
parsec
/
parsec-benchmark
/
pkgs
/
libs
/
ssl
/
src
/
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
++;
}