![]() |
Модераторы: korob2001, ginnie |
![]() ![]() ![]() |
|
Fuksito |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.2.2008 Репутация: нет Всего: нет |
Вот есть такой дамп хеша
$all : $VAR1 = { '*Fh::fh00001cascada_-_bad_boy.mp3' => { 'info' => { 'Content-Type' => 'audio/mpeg', 'Content-Disposition' => 'form-data; name="item[avatar]"; filename="cascada_-_bad_boy.mp3"' }, 'name' => bless( do{\(my $o = '.\\CGItemp35533')}, 'CGITempFile' ), 'hndl' => bless( \*{'Fh::fh00001cascada_-_bad_boy.mp3'}, 'Fh' ) } }; Как вот получить в переменную значение '*Fh::fh00001cascada_-_bad_boy.mp3' или в другую уже переменную hndl' => bless( \*{'Fh::fh00001cascada_-_bad_boy.mp3'}, 'Fh' ) и что єто за 'Fh' ) или 'CGITempFile' ), |
|||
|
||||
ginnie |
|
|||
![]() Эксперт ![]() ![]() ![]() Профиль Группа: Комодератор Сообщений: 1287 Регистрация: 6.1.2008 Где: Москва Репутация: 38 Всего: 49 |
Fuksito, постарайтесь яснее выразить, что Вам нужно.
-------------------- Написать код, понятный компьютеру, может каждый, но только хорошие программисты пишут код, понятный людям. (Мартин Фаулер. Рефакторинг) |
|||
|
||||
Fuksito |
|
|||
Новичок Профиль Группа: Участник Сообщений: 11 Регистрация: 28.2.2008 Репутация: нет Всего: нет |
Ну вот как записать в переменную к примеру $var значение *Fh::fh00001cascada_-_bad_boy.mp3
Ясно?) |
|||
|
||||
arto |
|
|||
Эксперт ![]() ![]() ![]() Профиль Группа: Завсегдатай Сообщений: 1495 Регистрация: 31.10.2004 Репутация: 38 Всего: 40 |
(keys %$all)[0] ?
|
|||
|
||||
nitr |
|
|||
![]() Эксперт ![]() ![]() ![]() ![]() Профиль Группа: Участник Клуба Сообщений: 2543 Регистрация: 10.2.2006 Где: Россия :) Репутация: 37 Всего: 84 |
Fuksito, вам что конкретно требуется? Сам файл сохранить или его содержимое? Или только имя определить? Или просто разбор этой переменной?
Большинство значений это ссылки на что-либо. Думаю вам надо более подробно сказать, что используете, какие цели. Т.к. неясен, например, используемый модуль ![]() |
|||
|
||||
![]() ![]() ![]() |
Правила форума "Perl" | |
|
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq. |
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Perl: Общие вопросы | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |