Исходное сообщение
"'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: