Per the message by Mr. Adigun, using a single quote instead of double quotes
tells perl not to interpolate the string. That will prevent it from eating all
those backslashes.
--------
Paul Anderson -- VE3HOP
On 2012-08-09, at 8:53 AM, Sandip Karale <sandipkar...@gmail.com> wrote:
> Hi Shlomi,
>
> Thanks for your reply.
>
> my $d="\\\\\\\\mach\\\\dir"; This UNC path I'm getting from arguments, and
> then I want to process it. That is I want to concatenate the file name to
> it and open the file and print its contents. So your solution will not help.
>
> Sincerely,
> Sandip
>
>
> On Wed, Aug 8, 2012 at 4:13 PM, Shlomi Fish <shlo...@shlomifish.org> wrote:
>
>> Hi Sandip,
>>
>> On Wed, 8 Aug 2012 15:47:24 +0530
>> Sandip Karale <sandipkar...@gmail.com> wrote:
>>
>>> Hello ,
>>>
>>> I'm new to perl.
>>>
>>> I am on windows 7 64 bit machine. with Strawberry Perl (64-bit)
>>> 5.14.2.1.
>>
>> It's good that you are using Strawberry Perl.
>>
>>>
>>> *My Code:*
>>>
>>> use File::Spec::Functions;
>>> my $f="foo.txt";
>>> my $d="\\\\\\\\mach\\\\dir";
>>
>> Why do you have four backslashes here and then two? (Note that they are
>> escaped, so
>> it's twice as that)? In Perl, a backslash is a backslash, even when it
>> is interpolated. So you can just do something like:
>>
>> my $BS = "\\";
>> my $d = "$BS${BS}mach${BS}dir";
>>
>> That may be the source of part of your problem.
>>
>> Regards,
>>
>> Shlomi Fish
>>
>>>
>>> print "$f \n";
>>> print "$d \n";
>>> print catfile($d,$f);
>>>
>>>
>>> *Output:*
>>> *
>>> *
>>> foo.txt
>>> \\\\mach\\dir
>>> \mach\dir\foo.txt
>>>
>>> *My Problem:*
>>> *
>>> *
>>> After concatenating with UNC path and file, the concatenated path is
>>> wrong! the expected path is \\mach\dir\foo.txt
>>> Please help me out if I'm missing something.
>>>
>>> Sincerely,
>>> Sandip
>>
>>
>>
>> --
>> -----------------------------------------------------------------
>> Shlomi Fish http://www.shlomifish.org/
>> "Humanity" - Parody of Modern Life - http://shlom.in/humanity
>>
>> Larry Wall *does* know all of Perl. However, he pretends to be wrong
>> or misinformed, so people will underestimate him.
>>
>> Please reply to list if it's a mailing list post - http://shlom.in/reply .
>>
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
