Foro - Perl en Español

por **Emstro** » 2011-03-10 13:24 @600

Hola,

Tengo la siguiente función:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub GetAddressesNotInMailList {
    my $self = shift;
    my $MailListID = shift;    # mandatory
 
    $self->{MSG} = "";
    my $Addresses = undef;
 
    unless( defined $MailListID ) {
        $self->{MSG} = "Mandatory Input Arguments are not defined";
        $self->{LOG}->error("GetAddressesNotInMailList: ".$self->{MSG});
    } else {
        my $Members = undef;
        $Members = $self->GetMembersOfMailList( $MailListID );
        if( defined $Members ) {
            my $num_res = keys %$Members;
            $self->{MSG} = "Number of members of \"$MailListID\" mail list is $num_res";
            $self->{LOG}->log("GetAddressesNotInMailList: ".$self->{MSG}) if( $DEBUGGING == 2 );
            my $refAddresses = undef;
            $refAddresses = $self->GetAllMailAddresses();
            if( defined $refAddresses ) {
                if( $num_res > 0 ) {
                    foreach my $AddressID ( keys %$refAddresses ) {
                        push( @$Addresses, $AddressID ) unless( exists $Members->{$AddressID} && $Members->{$AddressID}->{EXCLUDE_FROM} eq 'N' );
                    }
                } else {
                    $Addresses = $refAddresses;
                }
            } else {
                $self->{MSG} = "Error of getting of all mail addresses";
                $self->{LOG}->error("GetAddressesNotInMailList: ".$self->{MSG});
            }
        } else {
            $self->{MSG} = "Error of getting of members of \"$MailListID\" mail list";
            $self->{LOG}->error("GetAddressesNotInMailList: ".$self->{MSG});
        }
    }
 
    return $Addresses;
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Al hacer un dumper me entrega esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = {

          'test' => {

                      'CREATED_ON' => '2011-03-10 15:49:09',

                      'UPDATED_ON' => '2011-03-10 15:49:09',

                      'ADDRESS_NAME' => 'Eric Abarca',

                      'STATUS' => 'Active',

                      'ISI_ADDRESS_ID' => 'test',

                      'CREATED_BY' => 'eabarca',

                      'EMAIL_ADDRESS' => '[email protected]',

                      'DESCRIPTION' => '',

                      'UPDATED_BY' => 'eabarca'

                    },

          'bclinton' => {

                          'CREATED_ON' => '2010-11-30 08:51:09',

                          'UPDATED_ON' => '2010-12-15 11:30:57',

                          'ADDRESS_NAME' => 'Bill Clinton',

                          'STATUS' => 'Active',

                          'ISI_ADDRESS_ID' => 'bclinton',

                          'CREATED_BY' => 'igor',

                          'EMAIL_ADDRESS' => '[email protected]',

                          'DESCRIPTION' => '      ',

                          'UPDATED_BY' => 'igor'

                        },

          'ericabarca' => {

                            'CREATED_ON' => '2010-12-14 19:06:35',

                            'UPDATED_ON' => '2010-12-17 15:11:44',

                            'ADDRESS_NAME' => 'Eric Abarca',

                            'STATUS' => 'Active',

                            'ISI_ADDRESS_ID' => 'ericabarca',

                            'CREATED_BY' => 'eabarca',

                            'EMAIL_ADDRESS' => '[email protected]',

                            'DESCRIPTION' => 'Test    ',

                            'UPDATED_BY' => 'eabarca'

                          },

          'root' => {

                      'CREATED_ON' => '2010-11-25 11:16:12',

                      'UPDATED_ON' => '2010-12-17 15:05:06',

                      'ADDRESS_NAME' => 'Spider Man',

                      'STATUS' => 'Active',

                      'ISI_ADDRESS_ID' => 'root',

                      'CREATED_BY' => 'igor',

                      'EMAIL_ADDRESS' => '[email protected]',

                      'DESCRIPTION' => '       ',

                      'UPDATED_BY' => 'eabarca'

                    }

        };Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y después otro dumper y me da esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

$VAR1 = [

          'test',

          'bclinton',

          'ericabarca',

          'root'

        ];Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y lo hace alternadamente, o sea, una y una.

¿A qué se deberá esto?

De antemano, gracias.

Foro - Perl en Español

Función me entrega hash y matriz alternadamente

Función me entrega hash y matriz alternadamente

Publicidad

Re: Función me entrega hash y matriz alternadamente

¿Quién está conectado?