URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID9
Нить номер: 8199
[ Назад ]

Исходное сообщение
"'package' и глобальные переменные в Perl"

Отправлено raba , 06-Апр-09 17:11 
Идея в том чтобы пару переменых были доступны отовсюду.Программа составня (состоится из несколько файлов), надо сделать так, чтобы можно было задать ети переменные в первом вызываемом файле, с изначально неопр. значение, на конкр.примере после цикла 'while' чтобы принимали какие-то значения, и дальше ети значения чтобы оставались на протяжение все программой????

#!/usr/bin/perl -w
system(clear);
package Foo;
our ($hst, $baz, $adm, $pwd);

open( STG, "< settings" ) or die "Can't open $!";

while( <STG> ) {
        $Foo::bar =~ /(?<=[ztrq]\:\s).*/;
        $Foo::baz =~ /(?<=(e{1})\:\s).*/;
        $Foo::adm =~ /(?<=d\:\s).*/;
        $Foo::pwd =~ /(?<=^\w{2}\:\s).*/;

}

close STG;

print("host $Foo::bar\nParam1: $Foo::baz\nParam2: $Foo::adm\npwd:$Foo::pwd\n\n\t\t\t\t\t[y..][n]\n");

Результат таков:

>Use of uninitialized value in concatenation (.) or string at ./test.pl line 33.
>Use of uninitialized value in concatenation (.) or string at ./test.pl line 33.
>Use of uninitialized value in concatenation (.) or string at ./test.pl line 33.
>Host:
>Param1:  
>Param2:  
>pwd:


Содержание

Сообщения в этом обсуждении
"'package' и глобальные переменные в Perl"
Отправлено raba , 07-Апр-09 10:56 
моя ошибка sorry, source неверный, исправил и все работает!