tab_num.pl « util - github.com/openssl/openssl.git - Unnamed repository; edit this file 'description' to name the repository.

Welcome to mirror list, hosted at ThFree Co, Russian Federation.

tab_num.pl « util - github.com/openssl/openssl.git - Unnamed repository; edit this file 'description' to name the repository.

index : github.com/openssl/openssl.git

Unnamed repository; edit this file 'description' to name the repository.

www-data

summary refs log tree commit diff

path: root/util/tab_num.pl

blob: a81ed0edc2452ce7b1ae9adc857c187e1ca01de9 (plain)

#!/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++;
	}