Есть портянка примерно такого вида ( ее передает один nginx модуль ) нужно ее парсить в perl модуле (под nginx ):
Content-Type: multipart/form-data; boundary=----------EKIlj3OGqfTEBTCCIcrItH
------------EKIlj3OGqfTEBTCCIcrItH
Content-Type: multipart/mixed; charset=utf-8;
boundary=----------EKIlj3OGqfTEBTFVI9xj8n
Content-Disposition: form-data; name=«upload»
------------EKIlj3OGqfTEBTFVI9xj8n
Content-Disposition: form-data; name=«upload»; filename=«test1»
Content-Type: application/octet-stream
11111
------------EKIlj3OGqfTEBTFVI9xj8n
Content-Disposition: form-data; name=«upload»; filename=«test2»
Content-Type: application/octet-stream
22222
------------EKIlj3OGqfTEBTFVI9xj8n--
------------EKIlj3OGqfTEBTCCIcrItH
Content-Disposition: form-data; name=«async»
1
------------EKIlj3OGqfTEBTCCIcrItH--
Соотв только нужны имена name и содержимое (только для полей типа текст ). Попробывал использовать MIME::Parser но его синтаксис убил ( чтобы пропарсить простой текст нужно написать 20-30 строчек ). Ну не писать же в данном случае простой регэксп ... Есть более простые парсеры ?