Help for this page

Select Code to Download


  1. or download this
         %mdata = (
        $pkey => {
...
        LOC  => trim_trailing($rec[4])
        }
     )
  2. or download this
         $mdata{$pkey} = {
        ABC  => trim_trailing($rec[1]),
...
        UNIT => trim_trailing($rec[3]),
        LOC  => trim_trailing($rec[4])
     };
  3. or download this
        next unless (s/\^/\^/g == 4);
    my @rec = split /\^/;
  4. or download this
        my @rec = split /\^/;
    next unless @rec == 5;