Help for this page

Select Code to Download


  1. or download this
    #!/usr/local/bin/perl -w

...
@<<<<< @<<<     @<<<<< @<<< ~~
get_key(), get_value(), get_key(), get_value()
.
  2. or download this
      sub get_key {
    my $key;
...
    }
    defined $key ? $key : "";
  }
  3. or download this
    format STDOUT =
@>>>>> @###     @>>>>> @### ~~
get_key(), get_value(), get_key(), get_value()
.