Help for this page

Select Code to Download


  1. or download this
    tie my %hash,'Tie::SortHash',{a=>1,b=>2};
delete $hash{'x'};
print join "\t",keys %hash;
  2. or download this
    Use of uninitialized value in splice at D:\Temp\tie_sorthash.pl line 4
+3.
b
  3. or download this
    sub _ReOrder {
    my $self = shift;
    $self->[LOOKUP] = ();
    $self->[ARRAY] = ();
  4. or download this
     defined $self->[ARRAY][$index] ? $self->[ARRAY][$index] : undef;