Help for this page

Select Code to Download


  1. or download this
    > perl -MData::Dumper -e ' @arg{key} = (1 .. 6); print Dumper(\%arg);'
$VAR1 = {
          'key' => 1
        };
  2. or download this
    my @arg= 1..6;
  3. or download this
    if (exists $hash{$_}) {
  foreach my $physh (sort keys %{$hash{$_}[2]}){
    next if (!$hash{$_}[2]{$physh}[9]);
        ...
}