Mini Shell
Mini Shell
| Direktori : /proc/self/root/usr/src/node-v0.10.4/deps/openssl/openssl/util/ |
| Current File : //proc/self/root/usr/src/node-v0.10.4/deps/openssl/openssl/util/tab_num.pl |
#!/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++;
}