亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: 備 份 注 冊(cè) 表 項(xiàng)的問(wèn)題 [打印本頁(yè)]
作者: perlw01f    時(shí)間: 2010-11-25 09:43
標(biāo)題: 備 份 注 冊(cè) 表 項(xiàng)的問(wèn)題
本帖最后由 perlw01f 于 2010-11-25 09:45 編輯
  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    時(shí)間: 2010-11-25 09:53
本帖最后由 perlw01f 于 2010-11-25 10:06 編輯

怪異
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    時(shí)間: 2010-11-25 10:14
本帖最后由 zhlong8 于 2010-11-25 10:26 編輯

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

CPAN能找到下面那個(gè)嗎?你裝的是下面那個(gè)嗎, ActivePerl 中是 0.10 版的沒(méi)這個(gè)方法
作者: perlw01f    時(shí)間: 2010-11-25 10:33
cpan那個(gè)沒(méi)有。。。



歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2