|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Ruslan Bondarev 2:4624/1.65 22 Mar 2001 21:32:33
To : Pimenov Yuri
Subject : Re: создание переменной
--------------------------------------------------------------------------------
Четверг Март 22 2001 14:25, Pimenov Yuri -> All:
>>> кот., например, вводится с клавиатуры или читается из файла...
>> eval вестимо. Только зачем тебе это? Может на самом деле тебе нужна
>> безымянная переменная, доступная через указатель на нее?
PY> дык для UI. мне надоело хардкодить положения всяких лэйблов, ентрей,
PY> комбобоксин в исходнике... хочу читать из файла!
Я читаю из реестра ключ и по нему создаю переменную:
if ($HKEY_LOCAL_MACHINE->Create($p, $data)) {
%hr = ();
$data->GetValues(\%hr);
for $key (keys %hr) { ${"_$key"} = @{$hr{$key}}[2]; }
}
Для всех значений переменной $key будет создана соотв. переменная ${"_$key"}
Hу, то есть для ключа "WIDTH" появится переменная $_WIDTH, которой будет
присвоено значение ключа. Оно?
... bye.
--- Медленно любила, пережевывая...
* Origin: (2:4624/1.65)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
