Help for this page

Select Code to Download


  1. or download this
    {
   no strict 'refs';
   $somestring =~ m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/;
   $result = ${$matchnum};
}
  2. or download this
    push @sps, (m/\s*(\S+)\s*(\S+)\s*(\S+)\s*(\S+)\s*/)[$columnNumber];