Help for this page

Select Code to Download


  1. or download this
    use Encode qw( encode );
    my $filehandler = encode('UCS-2le', 'C:\\data.wim');
    
    my $wimfile = new Win32::API("wimgapi", "WIMCreateFile", ['S','C','C',
    +'C','C','C'], 'N');
    my $value = $wimfile->Call($filehandler,WIM_GENERIC_WRITE,WIM_OPEN_EXI
    +STING,WIM_FLAG_VERIFY,WIM_COMPRESS_NONE,WIM_OPENED_EXISTING);
    
  2. or download this
    semi-panic: attempt to dup freed string at test.pl line 10, <DATA> lin
    +e 164.
    Can't call method "Pack" on an undefined value at test.pl line 10, <DA
    +TA> line 164.