備 份 注 冊(cè) 表 項(xiàng)的問(wèn)題

perlw01f

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use Win32::Registry;
   
5. my $Register = "SYSTEM\\CurrentControlSet\\Control\\Citrix";
   
6. my $hkey;
   
7. $::HKEY_LOCAL_MACHINE->Open($Register, $hkey)|| die $!;
   
8. $hkey->Save('c:\test1.reg');
   
9. $hkey->Close();

復(fù)制代碼

得到的文件 8Kb 且不是正常的 reg文件格式
從 Citrix export得到的reg文件 1Kb

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Citrix]

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Citrix\wfshell]

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Citrix\wfshell\TWI]
"LogoffCheckSysModules"="acrotray.exe,acrodist.exe,Acrobat.exe"

請(qǐng) 教 如何 得到 后面的這種格式？
謝 謝

perlw01f

怪異
http://search.cpan.org/~jdb/Win32-Registry-0.10/Registry.pm 沒(méi)有export方法

但是這個(gè)
http://jenda.krynicky.cz/perl/Registry.pm.html居然有export方法。。。

Export

     $obj->Export( [$filename, [$continuation]] )

    Export the key into a registry script (.REG) file. This method creates a standard registry script, the same you get when you export a key from Regedit.exe.

    If you do not specify the $filename, the text gets printed to the currently select()ed filehandle.

    If the $continuation is defined, no header is printed out. You may use this to export several keys into one file.

    If you do not want to specify the filename, but need continuation, use undef() as the $filename.

本機(jī)試用 export

Can't locate auto/Win32/Registry/Export.al in @INC (@INC contains: C:\ C:/Perl/site/lib C:/Perl/lib .) at C:\Users\UserA\AppData\Local\Temp\dir108E.tmp\test1.pl

繼續(xù)求助中。。。

zhlong8

少個(gè)文件或模塊 /Win32/Registry/Export.pm 應(yīng)該

CPAN能找到下面那個(gè)嗎?你裝的是下面那個(gè)嗎, ActivePerl 中是 0.10 版的沒(méi)這個(gè)方法

perlw01f

cpan那個(gè)沒(méi)有。。。