VPF::Непонятки с массив - Форум программистов

korob2001

Дата 17.6.2005, 09:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Цитата

Код


# querying data for topics and forums recount
my $sql = "SELECT attach_id, topic_id, forum_id FROM ibf_posts WHERE queued=1 and post_date<".$time."-60*60*24*30";
my $sth = $dbh->prepare($sql);
$sth->execute();
while ( my $href = $sth->fetchrow_hashref() ) {
           push( @posts_arr, $href->{  topic_id } );
           push( @forums_arr, $href->{ forum_id } );
           print $href->{ attach_id };
    if ( $href->{ attach_id } and -e "/path/".$href->{ attach_id } )
        {
            unlink('/path'."/".$href->{ attach_id });
        }
}

# delete queued posts
#$dbh->do("DELETE FROM ibf_posts WHERE queued=1 and post_date<".$time."-60*60*24*30");

# *************************** DELETE moderatorial posts ( 7 days ) ******************************

# querying data for topics and forums recount
$sql = "SELECT attach_id, topic_id, forum_id FROM ibf_posts WHERE use_sig=1 and post_date<".$time."-60*60*24*7";
$sth = $dbh->prepare($sql);
$sth->execute();
while ( my $href = $sth->fetchrow_hashref() ) {
           push( @posts_arr, $href->{  topic_id } );
           push( @forums_arr, $href->{ forum_id } );
           print $href->{ attach_id };
    if ( $href->{ attach_id } and -e "/path/".$href->{ attach_id } )
        {
            unlink('/path'."/".$href->{ attach_id });
        }
}


# delete moderatorial posts
#$dbh->do("DELETE FROM ibf_posts WHERE use_sig=1 and post_date<".$time."-60*60*24*7");

# ********************* DELETE delayed posts ( various days, depends from forums settings ) ***************

$sth = "SELECT attach_id, topic_id, forum_id FROM ibf_posts WHERE delete_after != 0 and delete_after<".$time;
$sth = $dbh->prepare($sql);
$sth->execute();
while ( my $href = $sth->fetchrow_hashref() ) {
           push( @posts_arr, $href->{  topic_id } );
           push( @forums_arr, $href->{ forum_id } );
           print $href->{ attach_id };
    if ( $href->{ attach_id } and -e "/path/".$href->{ attach_id } )
        {
            unlink('/path'."/".$href->{ attach_id });
        }
}

Вот эти три запроса объединить в один сможешь??? Сам посмотри, как они похожи, меняется только условие запроса к базе, даже обращаемся к одной и той же таблице, за одними и теми же данными.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

TwiSteR

Дата 17.6.2005, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Кибер красавчег

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 15.6.2005
Где: World->Russia

Репутация: нет
Всего: 2

Цитата(korob2001 @ 17.6.2005, 09:49)

Нежелательно т.к. в этом случае станет невозможным использование индексов, и он каждый раз будет всю базу перебирать.

Ну что скажешь по коду ?

--------------------

korob2001

Дата 17.6.2005, 20:10 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Цитата

Нежелательно т.к. в этом случае станет невозможным использование индексов, и он каждый раз будет всю базу перебирать.

В том-то и дело, что желательно. В твоём случае перебор будет происходить 3 раза подряд. Ну а что касается кода, то его можно уменьшить раза в 3-4 и работать он будет быстрее во столько же раз.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

TwiSteR

Дата 17.6.2005, 23:53 (ссылка)

(нет голосов)

Загрузка ...

Кибер красавчег

Профиль
Группа: Участник
Сообщений: 231
Регистрация: 15.6.2005
Где: World->Russia

Репутация: нет
Всего: 2

Korob спасибо огромное за реальную помощь !!!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »