Disabling backslash translation

[MoshiachNow]

HI,

I have a code:

my $Controller =<<"EOH";
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\fff\Controler]
"SfidaLimoges"="SLCtrl"
"selectedDLL"="SLCtrl"
"DebugLevel"=dword:ffffffff
"DebugLevelMask"="BASE=0x01, PA=0x02, LL=0x04, DF=0x08, PDF=0x10, RES=0x20, CTRL=0x40"
"NtfyArrGr"="41"

EOH

Is there a way to get the above text into a variable whem the "\" is not interpreted but taken literaly ?
(Otherwise I have to convert all these to double backslashes...)
thanks


Long live king Moshiach !

http://www.noahide.com

 

[travs69]

my $var = q~blah\blah\blah\blah~;
or you can just use single quotes
my $var = 'blah\blah\blah\blah';


The ~'s in the first example can be anything you want (two ~'s, !'s, or anything really).




~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[MoshiachNow]

Thanks,but this does not seem to work for multiple text lines:

my $Controller = '
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\fff\Controler]
"SfidaLimoges"="SLCtrl"
"selectedDLL"="SLCtrl"
"DebugLevel"=dword:ffffffff
"DebugLevelMask"="BASE=0x01, PA=0x02, LL=0x04, DF=0x08, PDF=0x10, RES=0x20, CTRL=0x40"
"NtfyArrGr"="41"
'

actualy gives error :

syntax error at D:\DOcuments\myscripts\tracesManager.pl line 281, near "open "
(Might be a runaway multi-line '' string starting on line 271)
Execution of D:\DOcuments\myscripts\tracesManager.pl aborted due to compilation errors.

Long live king Moshiach !

http://www.noahide.com

 

[travs69]

this

my $data = '
Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\fff\Controler]
"SfidaLimoges"="SLCtrl"
"selectedDLL"="SLCtrl"
"DebugLevel"=dword:ffffffff
"DebugLevelMask"="BASE=0x01, PA=0x02, LL=0x04, DF=0x08, PDF=0x10, RES=0x20, CTRL=0x40"
"NtfyArrGr"="41"
';

print "$data\n";

works just fine


I noticed you do not have a ending semicolon in the line you pasted.



~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[MoshiachNow]

great,thanks

Long live king Moshiach !

http://www.noahide.com

 

[tsuji]

Just specify the quote context (single-quotish here).
>my $Controller =<<"EOH";
[tt]my $Controller =<<[highlight]'[/highlight]EOH[highlight]'[/highlight];[/tt]

 

[MoshiachNow]

thanks tsuji,good tip.

Long live king Moshiach !

http://www.noahide.com

 

[travs69]

I think though that the whole <<EOF style is depreciated. I could be wrong but since you have q and qq I don't know why anyone would do it that way.

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Travis - Those who say it cannot be done are usually interrupted by someone else doing it; Give the wrong symptoms, get the wrong solutions;

 

[MoshiachNow]

thanks ,travs69

Long live king Moshiach !

http://www.noahide.com