VPF::Не устанавливается дефолтное значение

ssdm

Дата 14.2.2011, 19:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 13.8.2010

Репутация: 2
Всего: 2

Добрый вечер.

Вот код.

Код



use strict;

use Params::Validate;

sub test{
 my  %hash = validate( @_, {
        host => { default => 'localhost'  } ,
        base => { default => 'base' } ,
        username => { default => 'username' },
        password => { default => '' },
    });

     foreach ( keys %hash){
           print $_."<===>".$hash{$_};
     }
     
}

my %connect_info = (
                     host => undef,
                     base => undef,
                     username => undef,
                     password => undef,
                   );


test(\%connect_info);

В итоге после вызова значения хеша остаются undef , а не выставляются по дефолту.
Хотелось бы , что бы при undef , выставлялась дефолтные значения.
Подскажите как ?

Это сообщение отредактировал(а) ssdm - 14.2.2011, 19:18

vivu

Дата 14.2.2011, 22:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.11.2009

Репутация: нет
Всего: нет

Код


#!/usr/bin/perl

use strict;
use Params::Validate;
use Data::Dumper;

&test();

sub test{
 my  %hash = validate( @_, {
        host => { default => 'localhost'  } ,
        base => { default => 'base' } ,
        username => { default => 'username' },
        password => { default => '' },
    });

    die Dumper(\%hash);
}

у меня всё работает

Это сообщение отредактировал(а) vivu - 14.2.2011, 22:18

ssdm

Дата 15.2.2011, 11:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 13.8.2010

Репутация: 2
Всего: 2

vivu,
У вас все работает потому что вы вообще хеш не передаете, а в моем случае он передается.

arto

Дата 15.2.2011, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1495
Регистрация: 31.10.2004

Репутация: 38
Всего: 40

imho значения проверячтся не на defined, а на exists

vivu

Дата 15.2.2011, 23:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 42
Регистрация: 3.11.2009

Репутация: нет
Всего: нет

Точно! Не увидел вторую часть скрипта.

Тогда вам нужно, как правильно заметил arto, не передавать пустой хеш, чтобы получить дефолтные значения.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »