типы данных perl и отладка

[ProFTP]

подскажите пожалуйста, я не могу вывести имя пользователя который зарегистрирован и активен!

использую DBI и HTML::Template

шаблон

Код: Выделить всё

	  logged in as <TMPL_VAR NAME="user_username">.

если написать так:

Код: Выделить всё

 $c->stash->{user_username} =  $c->user->{username};

то ничего не выводит

если так

Код: Выделить всё

   $c->stash->{user_username} =  $c->user

то:

Код: Выделить всё

Catalyst::Authentication::Store::DBI::User=HASH(0x9ae2ec0)

подскажите пожалуйста, как разыменовать этот хэш и вывести имя пользвоателя?

отладка:

Код: Выделить всё

logged in as [info] *** Request 2 (0.333/s) [42050] [Fri Feb 6 14:38:50 2009] *** [debug] "GET" request for "/" from "127.0.0.1" 
[debug] Found sessionid "3d04a4a1476d9f6e404f0dc269abc5afce06a4a2" in cookie [debug] Restored session 
"3d04a4a1476d9f6e404f0dc269abc5afce06a4a2" [debug] $VAR1 = bless( { 'store' => bless( { 'user_table' => 'users', 
'user_role_role_key' => 'role_id', 'user_key' => 'id', 'user_name' => 'username', 'role_table' => 'roles', 'role_name' => 
'role', 'user_role_table' => 'user_roles', 'dbh' => bless( {}, 'DBI::Db' ), 'user_role_user_key' => 'user_id', 'class' => 'DBI', 
'role_key' => 'id' }, 'Catalyst::Authentication::Store::DBI' ), 'auth_realm' => 'default', 'user' => { 'email_address' => 't01@na.com', 'password' => 
'e727d1464ae12436e899a726da5b2f11d8381b26', 'active' => '1', 'id' => '1', 'last_name' => 'Blow', 'first_name' => 'Joe', 'username' => 'test01' } }, 
'Catalyst::Authentication::Store::DBI::User' ); .

не получается разымновать и вывести имя пользователя, аномалия!!

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[zingel]

использовать пере username "%" ?

[ProFTP]

забыл отписатся, сделал так

Код: Выделить всё

$c->user->{user}->{username}

там идет хэш в объекте $c (даже более того) ...
хэш через ссылку будет так $hex->{'key'} = 'value';

вот не много полезного собрал из opennet, ссыллки не помню на оригинал, правда там про ООП ничего нету, только про ссылочные структуры данных
http://unixforum.org.ua/index.php?topic=12419.0
http://unixforum.org.ua/index.php?topic=12420.0