Modified source engine (2017) developed by valve and leaked in 2020. Not for commercial purporses
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
|
#!/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++; |
|
} |
|
|
|
|