Help for this page

Select Code to Download


  1. or download this
    ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Suppli
+er ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Suppli
+er ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription|RowCode|Suppli
+er ID::Region
ValuesInColumn1    DataColumnB    XYZ    RowDescription at RowCode
ValuesInColumn1    DataColumnB    ABC    RowDescription at RowCode
  2. or download this
    foreach my $line (@a) { 
        my ($colA, $colB, $colC,$colD) = split( /\s+/, $line);
        
        #print "$colD \n";     
}