VPF::подпрограммы - Форум программистов

GR0Mi

Дата 1.12.2010, 19:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

как использовать переменую из другой под программы?
пример конструкции

Код


sub main
{
print $cki3;
}
sub link
{
my $resp = $ua->get("http://www.google.com/")->as_string; 

my ($cki3) = $resp =~ /challenge : '(.*)'/;
}

выдает ошибку
Global symbol requires explicit package name

мне нужно вывести в переменую $cki в sub main

Это сообщение отредактировал(а) GR0Mi - 1.12.2010, 19:40

ginnie

Дата 1.12.2010, 19:58 (ссылка)

(голосов:1)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1287
Регистрация: 6.1.2008
Где: Москва

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

GR0Mi, можно сделать так:

Код


my $cki3;
sub main
{
print $cki3;
}
sub link
{
my $resp = $ua->get("http://www.google.com/")->as_string; 

($cki3) = $resp =~ /challenge : '(.*)'/;
}

но я стараюсь так не делать, передаю нужные данные в виде аргументов

Код


sub main {
    my $value = shift;
    print $value;
}
sub link {
    my $resp = $ua->get("http://www.google.com/")->as_string; 
    my ($cki3) = $resp =~ /challenge : '(.*)'/;
    return $cki3;
}

my $result = link();
main($result);

--------------------

Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг)

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