#!/usr/bin/perl

use strict;

my @pss=`ps ax`;
foreach my $elem (@pss){

        my $ps0=$elem;
        $elem=~s/^[\s]*([0-9]+)[\s]+.*$//;
        my $pidn=($1);

        my $pid0=`vzpid $pidn|tail -1`;
        $pid0=~s/\s+(\d+)//;
        my $pid1=($1);

                if ($pid1==0) {
                        print "$ps0";

                }
}

#!/bin/bash

PIDLIST=(`ps ax | grep -v PID | awk '{print $1}'`)

findpids(){
veidesired=$1
pidlist=

for i in `seq 0 ${#PIDLIST[*]}`; do
        pid=${PIDLIST[$i]}
        [ -f /proc/$pid/status ] || return
        veid=`grep envID /proc/$pid/status | awk -F: '{print $2}'`
        if [ ${veid} = ${veidesired} ]; then
                pidlist=$(echo $pidlist $pid) 
        fi
done
}

findpids $2
if [ "${pidlist}" ]; then
        ps $1 -p "$pidlist"
fi

exit 0