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

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

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

    cyberblade Гость

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

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

    Код:
    #!/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

    Код:
    #!/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

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

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

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