John W. Krahn wrote:
> Rob Dixon wrote:
>>
>> Mike Garner wrote:
>>>
>>> if ($file) {
>>> my @fileparts=split(/\\/,$file);
>>> my $file_name=pop(@fileparts);
>>
>> my $file_name = (split '\', $file)[-1];
> ^^^
> That won't work because you are escaping the final quote. Mike's
> regex is correct.
Quite right, thanks. In fact, as I explained in a post the other day,
it would have to be
split ('\\\\', $file)[-1];
to use quotation marks!
Cheers,
Rob
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
