From: activeperl-boun...@listserv.activestate.com
[mailto:activeperl-boun...@listserv.activestate.com] On Behalf Of John
DePasquale
Sent: 20 February 2012 07:05
To: activeperl@listserv.ActiveState.com
Subject: getting a file name
> Hi all,
> I am unable to get a full file name ( including path ) from a form. I'm using
> <input id="filename"
> type="file" name="filename"> in the form.
>
> In the perl code I've tried using both of the following:
>
> 1:
> my $cFile = substr( CGI::param( 'filename' ), 0, 100 );
>
> 2:
> my $cgi = new CGI();
> my $cFile = $cgi->param('filename');
>
> the html presents me with a "browse" button, and when I select a file via the
> browse I end up with the string > c:\images\file.jpg in the input box.
> However, I only get file.jpg assigned to the variable $cFile. I am unable to
> acquire the entire value ( i.e.
> c:\images\file.jpg ), even though that entire string is appearing in the
> input box after the file is selected > via the browse button. I'm guessing
> I'm missing something simple and I've tried to track down an answer, but
> I'm stuck. Any help is appreciated. Thank you.
I don't think that this is a Perl problem. Your script is simply reporting the
data as it was presented by the browser. As I understand it, that type of input
field is normally used for uploading files, so only the file name is needed,
not the full path. There may be a good reason for your browser to behave that
way, such as security.
You may stand a better chance of getting help in a forum that specialises in
browser/html/cgi issues.
HTH
--
Brian Raven
Please consider the environment before printing this e-mail.
This e-mail may contain confidential and/or privileged information. If you are
not the intended recipient or have received this e-mail in error, please advise
the sender immediately by reply e-mail and delete this message and any
attachments without retaining a copy.
Any unauthorised copying, disclosure or distribution of the material in this
e-mail is strictly forbidden.
_______________________________________________
ActivePerl mailing list
ActivePerl@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
