| ||||||||||||||||
 | ||||||||||||||||
| ||||||||||||||||
 | ||||||||||||||||
| ||||||||||||||||
|
|
Врезка 3
NONEXECUTABLE
Listing 3: Script to Update Exported Registry Keys
$olddom=uc($ARGV[0]);
if (open (input,"c:/temp/rastemp.tmp")) {
$parm=<input>;
while ($parm ne "") {
($part1,$part2)=split(/\=/,$parm);
$domcheck=uc($part2);
chop($part2);
$len = length $domcheck;
$domcheck = substr($domcheck, 1, ($len-2));
if ($domcheck eq $olddom)
{
$part2=(`"NORTHAMERICA"`);
}
if ($part2 ne "")
{
print $part1,"=",$part2;
}
else
{
chop($part1);
print $part1;
}
print "\n";
$parm=<input>;
}
}
|
|
|
| ||||||||||||||||
| ||||||||||||||||
| ||||||||||||||||
|
1999-2009 © InfoCity.kiev.ua