Mercurial > openvz

comparison vz_ps.pl @ 5:464dea07deb8 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add vzps replacements.
author Peter Gervai <grin@grin.hu>
date Wed, 07 May 2014 16:23:45 +0200
parents
children
comparison
equal deleted inserted replaced
4:c2cff30df6dc 5:464dea07deb8
1 #!/usr/bin/perl
2 # $Id: vz_ps.pl,v a19295214a68 2013/10/29 15:31:42 grin $
3 # (c) Petre Gervai, 2011-2013
4 # Released under CreativeCommons Attribution-ShareAlike v3.0 unported
5 # CC-BY-SA-3.0-unp
6 #
7 # Show OpenVZ info using stock ps output instead of hacking it in
8 #
9
10 use warnings;
11 use strict;
12 use IO::File;
13
14 my $ps = "/bin/ps";
15
16 my $f;
17
18 if( $#ARGV == 0 ) {
19 # use 'spawn ps' mode
20 $f = new IO::File 'ps ' . join(' ', @ARGV) . " |" or die $!;
21
22 } else {
23 # get data on stdin
24 $f = IO::Handle->new_from_fd( fileno(STDIN), 'r' );
25 }
26
27 # get header
28 my $hdr = <$f>;
29 if( $hdr !~ /PID/ ) {
30 print "Error: ps header doesn't contain PID, it's something I cannot accept. I'm going.\n";
31 exit 1;
32 }
33
34 my $pos;
35 $hdr =~ s/^\s*(.+?)\s*$/$1/; # remove head/trail spc
36 my @head = split /\s+/, $hdr;
37 while( my ($i,$val) = each @head ) {
38 if( $val=~ /^PID$/ ) {
39 $pos = $i;
40 last;
41 }
42 }
43
44 use Data::Dumper;
45 print Dumper( \@head, $pos );
46 die;
47
48 while( <$f> ) {
49
50 }