Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

@array = `ps -ef | grep kdfadm`;
...

my @A = split;
print $A[1];

Select or download this

[kdfadm@srv01 ~]$ /usr/bin/perl SplitTest
kdfadm   121562 121527  0 Nov13 ?        00:01:15 /opt/kdf/home/jdk1.8
+.0_162/jre/bin/java -Xms512m -Xmx512m ...
[kdfadm@srv01 ~]$