Basic perl reading variable question?

Guys

I am reading a value from a config file to a perl variable.

The way value is set in config file is "c:\intepub\wwroot"

in variable it shows as "c:inetpubwwwroot" . Basically it is considering \ as escape character. My problem is that i cannot change value in config files.

Is there any solution.


my $TargetArea= repath();

($TargetArea= $TargetArea) =~ tr|\\|/|;

    print($TargetArea."\n");

    $TargetArea =~  m#(.*)/inetpub/(.*)$#;
    my $syncdrive = $1;
    my $sitefolder = $2;

sub repath
{
    return "e:\inetpub\wwwroot\ftlp";

}

Thanks

Find more posts tagged with

Comments

nipper

return "e:\\inetpub\\wwwroot\\ftlp";

Tanuj

That's the problem I can't edit config files to double backslash.

nipper

That's the problem I can't edit config files to double backslash.

OK, you have lost me.

The code you posted does not show reading the config file, just Perl returning a path (with a single \)

This works for me:


#!c:\interwoven\iw-home\iw-perl\bin\iwperl
open (DATA, "c:/temp/data.txt")|| die "Cannot open $file for reading:$!";
 my $data = join "", ;
 close DATA;
 $data =~ tr|\\|/|;
print "data $data\n";
exit(0);

where data.txt has (only 1 backslash, not 2)
c:\temp\text.txt

output is

data c:/temp/text.txt

Tanuj

Sorry to confuse you Code was a sample i created to test my theory.

But I found out that there was another bug because of which it was not parsing the path for me.

and your sample code helped me to understand the reading a path from config file is different from setting the path in perl variable directly.

Anyways all is good now thanks for you help.