Help for this page

Select Code to Download


  1. or download this
    #$csvIn is a Text::xSV object.
    while ($csvIn->get_row()) {
    ...
      # be problems later printing the data rows.
      defined($_) or $_ = "" for values %fields;
    }
    
  2. or download this
      for (keys %fields) {
        unless (defined($fields{$_})) {
          $fields{$_} = "";
        }
      }