Hi,

I have a registry file already decoded in Unicode, I need to replace a value within that file and implement a search and replace...but I keep getting the original file contents instead of the expected result that I am aiming.

$Profile="C:\\registry.reg"; # unicode file
$Param="Name";

open (FILE, "<:encoding(UTF-16)", $Profile);
@Lines = <FILE>;

open FILE, ">$Profile" or die $!;
@Lines = <FILE>;
close(FILE);

foreach $Lines (@Lines)
{
  if ($Lines =~ m/HKEY_LOCAL_MACHINE\\SOFTWARE\\$Param/g)
  {
   @LinesSub = split(/\\/,$Lines);
   $Lines =~ s/$Temp/$Param/g;
  }
  print FILE "$Lines";
}
close(FILE);

[download]

When the file is converted to Ansi manually, the value of the parameter is changed. But I need to make the script do that. I cant seem to change the original (Unicode) file after updating the value from search and replace with the script that i have. It keeps giving me this garbage strings.

I appreciate your help, thanks in advance...

In reply to convert a Unicode file to Ansi, using filehandle.. by nico7nibor

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.