Unzip with splurge protection

gistfile1.txt

function sunzip() {
  unzip -l "$1" | \
  head -n -2 | \
  tail -n +4 | \
  perl -lnE'$dirs{((split " ")[3] =~ m!([^/]*)!)[0]}++ } { exit 1 if keys %dirs > 1'
  
  if [[ "$?" -eq "0" ]]; then
    unzip "$1"
  else
    EXDIR="${1/%.zip/}"
    mkdir "$EXDIR"
    unzip -d "$EXDIR" "$1"
  fi
}