|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Sanyo Titaev 2:5070/66.1 17 Aug 2000 14:52:32 To : Serge Cherpatyuk Subject : algorithm -------------------------------------------------------------------------------- 14 Aug 28 19:32, Serge Cherpatyuk wrote to All: SC> Хотелось бы: что бы выдавало - к "этому" файлу обращались SC> "столько-то" раз "такого-то" числа. SC> Вот тут-то я и прошу подсказать алгоритм. SC> @date_time = split( /:/,$w_date, 2); SC> ($date = $date_time[0]) =~ s/^\[//; SC> $time = $date_time[1]; SC> $method =~ s/^\"//; SC> $protocol =~ s/\"$//; SC> if ( !defined( $Urls{$r_file} )) SC> { SC> $Urls{$r_file} = 0; SC> } SC> $Urls{$r_file}++; $Urls{$r_file}{$date}++; Sanyo --- GoldED/W32 3.0.1 * Origin: -=The Bulls=- mailto:tit@irk.ru (2:5070/66.1) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/2764399bfc7a.html, оценка из 5, голосов 10
|