1. Perl / Говнокод #1530

    −117.2

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    my $cache_sql="SELECT `content`, `insertTime` FROM _cache WHERE `confid`='$$conf{confid}'";
...
    $cache_sql.=" AND `location`=".$self->{dbh}->quote($url);
...
    $cache_sql.=" AND `cgiparams`=".$self->{dbh}->quote($cgi_hash);
...
    $cache_sql.=" AND `callparams`=".$self->{dbh}->quote($callp_hash);
...
    $cache_sql.=" AND `userid`=".int($$params{userid});
...
    $cache_sql.=" AND `groupid`=".int($$params{groupid});

   my $replace_sql=$cache_sql;
   $replace_sql=~s/SELECT.*?FROM\s+_cache\s+WHERE/REPLACE INTO _cache SET/s;

    perl+sql

    Запостил: poltora, 11 Августа 2009

    Комментарии (1) RSS

    Добавить комментарий