------------------------------------------------
On Wed, 5 Mar 2003 10:02:17 -0500, "Guy P" <[EMAIL PROTECTED]> wrote:
> The problem still remains. Look at the small program below.
> The result is this: DirectionsNitprogrsourcsql
> DirectionsNitprogrsourcsql
>
> And I would like it to be this: \Directions\unit\progr\sourcsql
>
> .Directions.unit.progr.sourcsql
>
In your sample script, it is when you set reprt that the \'s are being interpolated.
Add use strict, use warnings and you will see this, identified by the warnings. Are
you sure when you have retrieved the variable it still contains the backslashes? You
can test for this:
if ($reprt =~ /\\/) {
# has backslashes
}
else {
# doesn't
}
My suspicion is that it is getting interpolated somewhere between the database and
when you retrieve it, is it possible to check this path?
http://danconia.org
>
> ##########################################################
> #!/usr/bin/perl
> my ($reprt);
> $reprt= "\Directions\unit\progr\sourcsql";
>
> print $reprt."\n";
>
> # $reprt =~ s/\\/\\\\/g;
> $reprt =~ s/[\\]/\./g;
>
> print $reprt."\n";
>
> ##########################################################
>
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
