Help for this page

Select Code to Download


  1. or download this
    sub clean_data
    {
    ...
                    s/\s$//;
            } @_;
    }
    
  2. or download this
    foreach my $field ( @fieldnames )
    {
    ...
        clean_data( $value );
        push( @rec, $value );
    }