mirror of
git://source.winehq.org/git/wine.git
synced 2024-11-05 18:01:34 +00:00
28 lines
583 B
Perl
Executable file
28 lines
583 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# This script takes as STDIN an output from the Registry
|
|
# (export from regedit.exe) and prefixes every subkey-value
|
|
# pair by their hkey,key data member
|
|
#
|
|
# Copyright 1999 Sylvain St-Germain
|
|
#
|
|
|
|
${prefix} = "";
|
|
|
|
LINE: while(<>) {
|
|
chomp;
|
|
s/\r$//; # Get rid of 0x0a
|
|
|
|
next LINE if(/^$/); # This is an empty line
|
|
|
|
if( /^\[/ ) {
|
|
${prefix} = ${_}; # assign the prefix for the forthcomming section
|
|
next LINE;
|
|
}
|
|
s/\\\\/\\/g; # Still some more substitutions... To fix paths...
|
|
|
|
print "${prefix}$_\n";
|
|
}
|
|
|
|
|
|
|