Передача Данных В Пакет

Тема в разделе "Perl программирование", создана пользователем cyberblade, 17 фев 2012.

Статус темы:
Закрыта.
  1. cyberblade

    cyberblade Гость

    Подскажите кто-нибудь новичку в перле, как праильно передать переменную или массив в созданный пакет. Возможно я просто не понимаю работу с переменными глобальными и локальными...

    Скажем есть пакет: LibTestPack.pm

    Код (Text):
    #!/usr/bin/perl
    #
    package LibTestPack;
    use base 'Exporter';
    our @EXPORT=qw(test_data);
    sub test_data{
    my $local_data = "local";
    print "$local_data & $global_data\n";
    }
    1;
    И есть основная программа из которой отбращаюсь к пакету, делаю это так: TestPack.pl

    Код (Text):
    #!/usr/bin/perl -w
    #
    print "Content-Type: text/html; charset=utf-8\n\n";

    # mod
    use DBI;
    use URI::Escape;
    use CGI qw(:standard);
    use CGI::Carp 'fatalsToBrowser';

    # package
    use lib "library"; # - Путь к файлам
    use LibTestPack; # - Подключаю пакет

    # list
    $global_data = "global"; # Создаю переменную

    # Как передать $global_data в пакет подпрограмме test_data?

    test_data; # Использую подпрограмму из пакета.
    После запуска на сервере программа выдаст local &
    Хочу, чтоб выдала local & global
    Кому-то вопрос покажется банальным.
    Помогите мне разобраться... Спасибо.
     
  2. chorny

    chorny Member

    Регистрация:
    21 дек 2010
    Сообщения:
    7
    Симпатии:
    0
    Точно так же как вообще передают параметры в подпрограммы.

    Код (Text):
     test_data($global_data);

    sub test_data{
    my ($global_data)=@_;
    my $local_data = "local";
    print "$local_data & $global_data\n";
    }
     
Загрузка...
Похожие Темы - Передача Данных Пакет
  1. sergg
    Ответов:
    7
    Просмотров:
    4.475
  2. Vadik(R)
    Ответов:
    0
    Просмотров:
    1.766
  3. Corexis
    Ответов:
    0
    Просмотров:
    87
  4. Shouldercannon
    Ответов:
    0
    Просмотров:
    498
  5. Shouldercannon
    Ответов:
    0
    Просмотров:
    397
Статус темы:
Закрыта.

Поделиться этой страницей