a quick question about escaping characters 2

[keak]

I have a file that prints a variable to another file like so.

open (OUT, ">profile_serv") || die ($!);

$line = <IN>;
while ($line) {
    chop($line);
    print OUT ("su$line04");
}

basically I want to append '04' right after the variable's value (without a space).


I tried (say if $line=="User1")

print OUT ("su$line\04");

which gave me "suUser1^D"


and

print OUT ("su$line\04");

which gave me "suUser1\04"

what I am trying to get is "suUser104" as the output of the script.

Does anyone know a way around this?

regards

 

[KevinADC]

print OUT "su$line" . '04';

 

[keak]

Thanks that works for what I need to do,
but just out of curiosity, is there a way around this (escape sequence) that does it all in the double quotes ?

 

[TonyGroves]

There's also:
[tt]
print OUT "su${line}04";
[/tt]

 

[keak]

Thanks for the quick reply as always guys.
Appriciated!

 

[KevinADC]

there is no way around tacking alpha/numeric characters onto the end of a variable name without some type "escaping" involved. I used concatenation because most people are familiar with it, Tony used a method I have seen on occasion but am not very familiar with.