#!/usr/bin/perl
#
# (c)Peter Gervai, 2013
#
# use: ps awxuf | add_vzps.pl
#

while( <> ) {
  my @cmd = split /\s+/;
  my $pid = $cmd[1];
  if( -r "/proc/$pid/status" ) {
    my $veid_line = qx( /bin/grep 'envID:' /proc/$pid/status );
    if( $veid_line =~ /envID:\s+(\d+)/ ) {
      print $1, '; ', $_;
      
    } else {
      print "SKIP $veid_line ";
    }
  }
}