Não relacionado ao Debian, mas acho que nesta lista alguém pode me ajudar.

Eu comecei a fazer um script de upload de arquivo em perl, e estava tratando
o nome do arquivo para que ele não tivesse caracteres indesejados.

my $fileUploaded = $cgi -> param('Filedata');
my ($fileName, $filePath, $fileExt) = fileparse($fileUploaded, '\.[^.]*');

Estava indo tudo bem até eu começar a fazer os uploads dos arquivos de nome
estranho.

Quando eu enviei um com o nome

teste1.teste2.^áúç~#;.1,2()´´ ´´´```[]°.jpg

O $fileUploaded ficou com o conteúdo do arquivo ao invés de ficar com o nome
dele... Alguém sabe qual pode ser o motivo e como fazer pra evitar isso?

Ps.: Sei que é impossível o cara querer digitar algo assim, mas eu só quero
saber se tem jeito mesmo...

Responder a