Shell Programming and Scripting

echo 12121 | awk '{printf $0;while(len-->0){printf char}}' len=5 char=9

$tmp=$ecode;
$count=0;

while($tmp>0)
{ $tmp=$tmp/10; $count++; }

$output=$ecode;
$character=9;

for($i=0;$i<$length-$count;$i++)
{         $output=$output*10+$character;      }

print $output;

#!/bin/bash
function fill
{
  # fill string to width of count from chars 
  #
  # usage:
  # fill [-v var] count char
  #
  # if count is zero a blank string is output
 
  FILL="${2:- }"
  for ((c=0; c<=$1; c+=${#FILL}))
  do
    echo -n "${FILL:0:$1-$c}"
  done
}
 
function pad
{
  # Pad to right of string to required width, using chars.
  # Chars is repeated, as required, until width is reached.
  #
  # usage:
  # pad [-v var] width string <chars>
  #
  # if chars not specified spaces are used
 
  BACK=$(fill $1 "$3")
  let PAD=$1-${#2}
  if [ $PAD -lt 1 ] 
  then
    echo -n ${2:0:$1-1}
  else
    echo -n "$2${BACK:${#2}}"
  fi
}
 
echo $(pad 10 12121 0) $(pad 10 12121 9)
echo $(pad 10 12121 "-.")
echo $(pad 10 12 "-.")

1212100000 1212199999
12121.-.-.
12-.-.-.-.

$ echo "123" | perl -e 'chomp($x=<>);$pad_chr="0";$len=3; print $x . ($pad_chr x $len)'
123000

$ echo "123" | perl -e 'chomp($_=<>);print $_ .("0"x3)'
123000