How can I convert a PHP upload-file script to Perl?

Question

In PHP I have the following code that gets a file submitted through CGI:

move_uploaded_file($_FILES['userfile']['tmp_name'], $uploadfile)

The file is being sent as

Content-Disposition: form-data; name="userfile"; filename="filename"
Content-Type: application/octet-stream

The file being upload is of type PNG.

How do I access the data that $_FILES is getting through perl?

I can use CGI.pm with

$query->upload("filename");

But how do I get the data that is in the "Content-Disposition" part of the header?

ysth · Accepted Answer · 2009-07-12 21:17:06Z

2

To quote the doc:

When a file is uploaded the browser usually sends along some information along with it in the format of headers. The information usually includes the MIME content type. Future browsers may send other information as well (such as modification date and size). To retrieve this information, call uploadInfo(). It returns a reference to a hash containing all the document headers.

   $filename = param('uploaded_file');
   $type = uploadInfo($filename)->{'Content-Type'};
   unless ($type eq 'text/html') {
      die "HTML FILES ONLY!";
   }

Though the param() ought to return the filename too (also usable as a filehandle, but that's deprecated and upload() should be used for that instead).

answered Jul 12, 2009 at 21:17

ysth

99.1k6 gold badges126 silver badges219 bronze badges

Sign up to request clarification or add additional context in comments.

Collectives™ on Stack Overflow

How can I convert a PHP upload-file script to Perl?

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related