Help for this page

Select Code to Download


  1. or download this
    %prod=map{chomp;@a=split/\|/;shift@a,[@a]}<SRC>;
  2. or download this
    %prod = map {
  chomp;
  @a = split /\|/;
  shift(@a) => [@a]
} <SRC>