Mine

alias pcheck {
  var %q = $did(pfilt,2).lines,%w = 1
  while (%q >= %w) {
    if ($regex($did(pfilt,2,%w).text,/(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d+)/)) {
      if ($+(*,$regml(1),*) !iswm $hget(pfilt,ps)) {
        hadd -m pfilt ps $hget(pfilt,ps) $regml(1) $+ ,
      }
    }
    inc %w
  }
  var %y = 1,%z = $numtok(%pro,44)
  while (%y <= %z) {
    did -i pfilt 1 $did(pfilt,1).lines $token($hget(pfilt,ps),%y,44) 
    inc %y
  }
  hdel pfilt ps
}