Re: Problem with While condition in file upload

[John W. Krahn]

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.




John
-- 
use Perl;
program
fulfillment

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