Help for this page

Select Code to Download

Select or download this

foreach my $line (@array)
{
 my @column = split( /\s+/, $line );
...
  }
 }
}

Select or download this

[kdfadm@serv01 ~]$ /usr/bin/perl SplitTest
root 10053 sudo
kdfadm 10057 -bash
...
kdfadm 121600 /opt/kdf/home/jdk1.8.0_162/jre/bin/java
kdfadm 121615 /opt/kdf/home/jdk1.8.0_162/jre/bin/java
kdfadm 121622 /opt/kdf/home/jdk1.8.0_162/jre/bin/java