Help for this page

Select Code to Download


  1. or download this
    my ($op, $arg1, $arg2) = (@{$conwithposition{$key_pos}}[1],@{$conwithp
+os
+ition{$key_pos}}[2],$line[@{$conwithposition{$key_pos}}[0]]);
  2. or download this
    my ($op, $arg1, $arg2) = (
    @{ $conwithposition{$key_pos} }[1,2],
    $line[ $conwithposition{$key_pos}->[0] ]
);