remove all packages from PEAR channel

pear_channel_remove.sh

function pear_remove {
  local channel="$1"

  if [ -z $channel ]; then
    echo "Error: channel must be provided"
    return 1
  fi

  for pkg in $(pear list -c "$channel" | awk '{if ( $2 ~ /([0-9]+)\.([0-9]+)\.([0-9]+)/ ) print $1}') ; do
    pear uninstall "$channel/$pkg"
  done
}