Help me in reading a file

[kirankv123]

Hi

I am very much new to perl....plz help me in getting this ...

$user = "Uservalue"

$str = "somestring$user"

If I tried to print $str - getting the result as somestringUservalue which is what I expected one.

If I got the same thing in a file input.txt as somestring$user and when I tried to read the file I am getting the same text as somestring$user,

open(IN_FILE,ïnput.txt);
while $line(IN_FILE) {
print $line;}

How can I change my code if I want to print as somestringUservalue instead of somestring$user....

Please help me in resolving this...thanks in advance.

[miller]

That is because the assignment of the $str variable uses a double quoted string which is interpolated. All file reads are simply treated as raw data, and no interpolation is done. In order to get the $user text replaced with its value, you'll have to do some type of regular expression. A really simple one in this instance could be the following:

$line =~ s/\$user/$user/
print $line;
 

There are ways that you could make that replacement more generic. Also, it is possible to use eval in some instance to induce interpolation. But I'm not going to suggest anything more advanced than the above replacement unless you ask for specifics.