Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) разбить массив / 3 сообщений из 3, страница 1 из 1
28.06.2005, 08:45
    #33137371
vidoq
vidoq
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL) разбить массив
$site{$user}{$site} += {$bytes};


как разбить этот массив, чтобы получить статистику по юзеру вида:
юзер...
сайт 1 - 1мб
сайт 2 - 4мб
сайт 3 - 0,2мб
сайт N - 10мб

как привести к такому виду?

1 массив то разбить не сложно $byte{$user} += $bytes

foreach $key (keys(%byte)){
print "$byte{$key}";
} и все... а вот 2ной мне не понятен(
напишите как,...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2005, 10:27
    #33137528
g613
g613
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL) разбить массив
vidoq$site{$user}{$site} += {$bytes};


как разбить этот массив, чтобы получить статистику по юзеру вида:
юзер...
сайт 1 - 1мб
сайт 2 - 4мб
сайт 3 - 0,2мб
сайт N - 10мб

как привести к такому виду?

1 массив то разбить не сложно $byte{$user} += $bytes

foreach $key (keys(%byte)){
print "$byte{$key}";
} и все... а вот 2ной мне не понятен(
напишите как,...

Задача какая разбить или получить статистику вида... ???

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
$site{$user}{$site} += $bytes;
#...
foreach my $user ( keys %site )  {
 print "$user\n";
 my $num =  0 ;
 foreach my $site ( keys %{ $site{$user } } ) {
   printf "%s %d - %f Mb\n", $site, $num++, $site{ $user }{ $site } /  1048576 ;
 } 
}

?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.06.2005, 10:44
    #33137582
vidoq
vidoq
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(PERL) разбить массив
да именно так! спасибо за помощь, правда я уже нашел решение задачи!
ну оказывается и твоим вариантом моно сделать, мы тут чуть чуть извратились просто!:)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / PHP, Perl, Python [игнор отключен] [закрыт для гостей] / (PERL) разбить массив / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 513ms
Закрыть
start [/forum/topic.php?fid=23&mobile=1&tid=1478063]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 187ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 234ms
total:  513ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]