Tulini.org

Handling Growth with Postgres: 5 Tips From Instagram

http://instagram-engineering.tumblr.com/post/40781627982/handling-growth...

A sample Perl script to implement progress bar 

#!/bin/perl

# Total from which percentage will be calculated

$cnt = 16;

for($i=0;$i<$cnt;$i++) {
  # Calculate Percentage
  $percent = ($i/$cnt)*100;
  # Print Progress
  for($k=0;$k<$percent;$k=$k+5) {
    print "*";
  }
  print " [ $percent% Complete ] ";