Help for this page

Select Code to Download


  1. or download this
    my %reasons;
    while (my($city, $code_info) = each %$switch_hash) {
        my ($code, $date_info) = %$code_info;
    ...
            $reasons{"$city:$date"} = $2;
        }
    }
    
  2. or download this
    my $switch_hash = {
        'Washington:uslecwas5e1' => {
            '01-AUG-2002' => ''
    ...
            '01-AUG-2002' => ''
        },
    # ...
    
  3. or download this
    my $switch_hash = {
        'Washington' => {
            CODE => 'uslecwas5e1',
            '01-AUG-2002' => ''
        },
    # ...
    
  4. or download this
    my %reasons;
    while (my($city, $info) = each %$switch_hash) {
        while(my ($date, $reason) = each %$info) {
    ...
            $reasons{"$city:$date"} = $2;
        }
    }