substitution problem

[myggel]

hi there,

I got a problem with substitution.
example string(I read that string from a file):
dont know why "it is that" way
if I substitute with:
$three=~s/"/-eee-/g;
and print it with:
print "$three\n";
prints: dont know why -eee-it is that-eee- way
looks fine, but if i print to a file:
print NEW_CFG_FILE "HOSTNAME "."\""."$three"."\""."\n";
prints: HOSTNAME "dont know why "it is that" way"
it takes the $three before substitution. why?

thanks for any help
michael

 

[KevinADC]

seems that the substitution is no tbeing made to $three or the subsitution is being made after you print it to the file. Without seeing your code nobody can say for sure though.

 

[myggel]

my code looks like:

#read from a file in $three

    $three=~s/"/-eee-/g;
    print "$three\n"; #prints correct output
    open(NEW_CFG_FILE, ">" ...){
    ...
    print NEW_CFG_FILE "HOSTNAME "."\""."$three"."\""."\n"; #prints incorrect output
    print $three."\n"; #printscorrect output
...

output would look like

hello \"world\"
HOSTNAME "hello "world" "
hello \"world\"

i don't understand why the $three differ.

 

[KevinADC]

looks like you have the quotes incorrect in the line that prints to file, try like this:

print NEW_CFG_FILE 'HOSTNAME\' . $three . '\' . "\n";

 

[myggel]

that did it.
thanks.

michael