> ##########################################################
> #!/usr/bin/perl
> my ($reprt);
> $reprt= "\Directions\unit\progr\sourcsql";
> 
> print $reprt."\n";
> 
> # $reprt =~ s/\\/\\\\/g;
> $reprt =~ s/[\\]/\./g;
> 
> print $reprt."\n";

my $reprt= '\Directions\unit\progr\sourcsql';
print $reprt."\n";
$reprt =~ s/[\\]/./g;
print $reprt."\n";

That should work. Note the use of ''.

Luke

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to