[SOLVED] File type check in perl

shree24985 · 10-12-2010, 08:31 AM

Hi,
I am witing a file upload program in perl where i need to upload a wav or a gsm file and save it as a gsm file.

How can i make sure that the uploaded file is a wav or a gsm sound file and not an executable malicious script or something.

angel115 · 10-12-2010, 09:47 AM

I don't know in perl, but you can call the external program "file" and grab the output.

Here is an example of the output

Code:

$ file Roland-GR-1-Pick-Bass-2-C4.wav
Roland-GR-1-Pick-Bass-2-C4.wav: RIFF (little-endian) data, WAVE audio, Microsoft PCM, 16 bit, stereo 44100 Hz

shree24985 · 10-12-2010, 12:41 PM

Thanks angel.
file program would also help me make out if its an executable.