bin/cpanshellwatcher.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--help|h!>
  24
  25 This help
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31 I had to repeat this several times
  32
  33  ps auxww|grep 'CPAN.*shell'
  34  while true; do echo -n `date`; grep VmData /proc/14305/status; sleep 12; done
  35
  36 Now implementing it in one program
  37
  38 =cut
  39
  40
  41 use FindBin;
  42 use lib "$FindBin::Bin/../lib";
  43 BEGIN {
  44     push @INC, qw(       );
  45 }
  46
  47 use Dumpvalue;
  48 use File::Basename qw(dirname);
  49 use File::Path qw(mkpath);
  50 use File::Spec;
  51 use File::Temp;
  52 use Getopt::Long;
  53 use Hash::Util qw(lock_keys);
  54
  55 our %Opt;
  56 lock_keys %Opt, map { /([^=]+)/ } @opt;
  57 GetOptions(\%Opt,
  58            @opt,
  59           ) or pod2usage(1);
  60
  61 use POSIX qw(strftime);
  62
  63 while () {
  64     open my $fh, "-|", ps => "axww" or die;
  65     while (<$fh>) {
  66         my($pid,undef,undef,undef,$cmd) = split " ", $_, 5;
  67         next unless $cmd =~ /CPAN\s.*shell/;
  68         open my $fh2, "<", "/proc/$pid/status" or next;
  69         while (<$fh2>) {
  70             # VmData:     7528 kB
  71             next unless /^VmData:(?:\s+)(\d+) kB/;
  72             printf "%s %5d %7d\n", strftime("%FT%T",localtime), $pid, $1;
  73         }
  74     }
  75     sleep 12;
  76 }
  77
  78 # Local Variables:
  79 # mode: cperl
  80 # cperl-indent-level: 4
  81 # End: