Help for this page

Select Code to Download


  1. or download this
      @record = split( /\s*,\s*/o, $_);
  $field4 = $record[3];
  2. or download this
      ($s) = $_ =~ m/^\s*[^,]+,[^,]*,[^,]*,\s*([^,]+)\s*,/o;
  #  "$s" now contains the contents of field #4
  3. or download this
      $s =~ s/^\s+|\s+$//g;