Current Path : /usr/src/crypto/openssl/util/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/src/crypto/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++; }