%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /proc/self/root/proc/self/root/proc/self/root/lib64/perl5/vendor_perl/Proc/
Upload File :
Create Path :
Current File : //proc/self/root/proc/self/root/proc/self/root/lib64/perl5/vendor_perl/Proc/example.pl

#!/usr/bin/perl

use Proc::ProcessTable;

$ref = new Proc::ProcessTable;

foreach $proc (@{$ref->table}) {
  if(@ARGV) {
    next unless grep {$_ == $proc->{pid}} @ARGV;
  }

  print "--------------------------------\n";
  foreach $field ($ref->fields){
    print $field, ":  ", $proc->{$field}, "\n";
  }
}

Zerion Mini Shell 1.0