Help for this page

Select Code to Download


  1. or download this
      my($n1,$n2,$letter,$ordinal,$name,$code) = 
              (my @record = split(/[\s,]+/,$_));
  push (@DB, [@record]);
  2. or download this
      my ( $n1, $n2, $letter, $ordinal, $name, $code ) = 
              my @record = split /[\s,]+/;
  push @DB, \@record;
  3. or download this
    (@{$hash{"$name$code"}})[-1]
  4. or download this
       my ($a_ordinal,$a_name) = (@$a)[3,4];
   my ($b_ordinal,$b_name) = (@$b)[3,4];
  5. or download this
       my ( $a_ordinal, $a_name ) = @{ $a }[ 3, 4 ];
   my ( $b_ordinal, $b_name ) = @{ $b }[ 3, 4 ];