Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Системное программирование > TieRegistry

Автор: nankko 15.2.2008, 16:18

Здраствуйте,тольок начал изучать перл))) вот возник вопрос...

хочу подифицировать запись в реестре

use Win32::TieRegistry;
my $TablePath = "HKEY_LOCAL_MACHINE\\...\\MLM";
записал полный путь, все в папоке ключи.. как достать нужный и модифицировать..

в http://search.cpan.org/~adamk/Win32-TieRegistry-0.25/TieRegistry.pm#EXAMPLES
все слишком навороченно написанно,не врубаюсь((

заранее спасибо) smile

Автор: shamber 18.2.2008, 10:14

nankko, а вам Win32::TieRegistry обязателен?

может просто

Код


use Win32::Registry;

Код


my $machKey;
$::HKEY_LOCAL_MACHINE->Open("HARDWARE\\DEVICEMAP\\SERIALCOMM", $machKey)
        or die "Can't open ComKey: $^E"; #ассоциировал с $machKey нужный раздел в реестре.
my %values;
$machKey->GetValues(\%values); получаем значения ключа в %values

foreach my $key (keys %values){
print $values{$key}->[0]."\t".$values{$key}->[2]; #печатаем значение
}