Perl-based uri parser for bash scripts

parse_uri

#!/usr/bin/env sh

# Parse a normal uri--e.g. http://user:pass@host:1234 into a custom perl-based substitution format.
#  e.g. parse_uri "http://localhost:80" '$+{port}' ==> 80

function parse_uri() {
  URI=$1
  FMT=$2
  echo ${URI} | perl -pe "s#(?<proto>[\w\+-]+)://((?<user>[-\w]+):(?<pass>[-\w]+)@)?((?<host>[-\w]+)(:(?<port>\d+))?)#${FMT}#g"
}

function test_eq() {
  let TEST="${TEST}+1"
  if [ "$1" == "$2" ]; then
    let PASS="${PASS}+1"
    echo -n "."
  else
    echo ""
    echo "Failure. Test ${PASS}: $1 != $2"
  fi
}

function test_parse_uri() {
  export PASS=0
  export TEST=0

  test_eq $(parse_uri "http://localhost" '$+{proto}') "http"
  test_eq $(parse_uri "https://localhost" '$+{host}') "localhost"
  test_eq $(parse_uri "tcp://localhost:80" '$+{port}') 80
  test_eq $(parse_uri "ssh://root:toor@localhost" '$+{user}') "root"
  test_eq $(parse_uri "git://root:toor@localhost:80" '$+{pass}') "toor"
  test_eq $(parse_uri "git+ssh://my-user:my-pass@my-host:8080" '$+{proto};$+{user};$+{pass};$+{host};$+{port}') "git+ssh;my-user;my-pass;my-host;8080"

  let SUCCESS_RATE="100*${PASS}/${TEST}"
  echo ""
  echo "${SUCCESS_RATE}% Success"
}

test_parse_uri