Портирование языка Common LISP кодирует к Clojure

Что касается основного вопроса в этом потоке, другие сообщения дали понять, почему мы не можем привязывать значения к именам столбцов при подготовке операторов, так что вот одно из решений:

class myPdo{
    private $user   = 'dbuser';
    private $pass   = 'dbpass';
    private $host   = 'dbhost';
    private $db = 'dbname';
    private $pdo;
    private $dbInfo;
    public function __construct($type){
        $this->pdo = new PDO('mysql:host='.$this->host.';dbname='.$this->db.';charset=utf8',$this->user,$this->pass);
        if(isset($type)){
            //when class is called upon, it stores column names and column types from the table of you choice in $this->dbInfo;
            $stmt = "select distinct column_name,column_type from information_schema.columns where table_name='sometable';";
            $stmt = $this->pdo->prepare($stmt);//not really necessary since this stmt doesn't contain any dynamic values;
            $stmt->execute();
            $this->dbInfo = $stmt->fetchAll(PDO::FETCH_ASSOC);
        }
    }
    public function pdo_param($col){
        $param_type = PDO::PARAM_STR;
        foreach($this->dbInfo as $k => $arr){
            if($arr['column_name'] == $col){
                if(strstr($arr['column_type'],'int')){
                    $param_type = PDO::PARAM_INT;
                    break;
                }
            }
        }//for testing purposes i only used INT and VARCHAR column types. Adjust to your needs...
        return $param_type;
    }
    public function columnIsAllowed($col){
        $colisAllowed = false;
        foreach($this->dbInfo as $k => $arr){
            if($arr['column_name'] === $col){
                $colisAllowed = true;
                break;
            }
        }
        return $colisAllowed;
    }
    public function q($data){
        //$data is received by post as a JSON object and looks like this
        //{"data":{"column_a":"value","column_b":"value","column_c":"value"},"get":"column_x"}
        $data = json_decode($data,TRUE);
        $continue = true;
        foreach($data['data'] as $column_name => $value){
            if(!$this->columnIsAllowed($column_name)){
                 $continue = false;
                 //means that someone possibly messed with the post and tried to get data from a column that does not exist in the current table, or the column name is a sql injection string and so on...
                 break;
             }
        }
        //since $data['get'] is also a column, check if its allowed as well
        if(isset($data['get']) && !$this->columnIsAllowed($data['get'])){
             $continue = false;
        }
        if(!$continue){
            exit('possible injection attempt');
        }
        //continue with the rest of the func, as you normally would
        $stmt = "SELECT DISTINCT ".$data['get']." from sometable WHERE ";
        foreach($data['data'] as $k => $v){
            $stmt .= $k.' LIKE :'.$k.'_val AND ';
        }
        $stmt = substr($stmt,0,-5)." order by ".$data['get'];
        //$stmt should look like this
        //SELECT DISTINCT column_x from sometable WHERE column_a LIKE :column_a_val AND column_b LIKE :column_b_val AND column_c LIKE :column_c_val order by column_x
        $stmt = $this->pdo->prepare($stmt);
        //obviously now i have to bindValue()
        foreach($data['data'] as $k => $v){
            $stmt->bindValue(':'.$k.'_val','%'.$v.'%',$this->pdo_param($k));
            //setting PDO::PARAM... type based on column_type from $this->dbInfo
        }
        $stmt->execute();
        return $stmt->fetchAll(PDO::FETCH_ASSOC);//or whatever
    }
}
$pdo = new myPdo('anything');//anything so that isset() evaluates to TRUE.
var_dump($pdo->q($some_json_object_as_described_above));

Вышеуказанное это просто пример, поэтому, разумеется, copy-> paste не будет работать. Отрегулируйте для ваших потребностей. Теперь это может не обеспечить 100% -ную защиту, но позволяет контролировать имена столбцов, когда они «входят» как динамические строки и могут быть изменены в конце пользователя. Кроме того, нет необходимости создавать какой-либо массив с именами и типами столбцов таблицы, поскольку они извлекаются из information_schema.

34
задан Marko 12 March 2009 в 17:39
поделиться

3 ответа

Существует , список на clojure.org из различий между Clojure и другим Шепелявит. Некоторые другие вещи я заметил использование Clojure:

  • Идиоматический Clojure склоняется в большой степени к неизменным структурам данных. Где угодно Вы видите SETF в CL, вероятно, придется изменить в Clojure, чтобы в полной мере воспользоваться. (У Вас всегда есть опция использования изменяемых структур данных Java в Clojure, но большинство людей не делает.)

  • мультиметоды Clojure подобны CL (возможно более мощный, потому что можно диспетчеризировать на вещах кроме типа), но полноценный CLOS не доступен в Clojure. Использование Clojure struct вместо этого, который является просто воображением hashmap. Система ООП Java также доступна, конечно. Некоторые люди работают над портированием CLOS к Clojure, но я не уверен, как далеко вдоль тех усилий в этой точке.

  • макросы Clojure работают немного по-другому, чем макросы CL когда дело доходит до разрешения символа/пространства имен. Я не уверен, понимаю ли я достаточно хорошо для объяснения различий. Вы не должны смешивать с gensyms вполне так же в Clojure, хотя, который хорош.

  • Clojure не имеет системы условия как CL. У Вас есть только Java try / catch / finally для обработки исключений.

  • Clojure не позволяет пользовательские макросы читателя.

  • Clojure не имеет нескольких возвращаемых значений. Destructuring в Clojure очень хорош (списки поддержек, векторы, карты хеша, наборы и т.д.), и он встроен в большее количество мест, чем CL по умолчанию, таким образом, это - меньше проблемы, чем это могло быть.

В зависимости от приложения и как это записано, это может быть практично и просто к порту от CL до Clojure, или это может быть более практично для перезаписи его с нуля более функциональным, ориентированным на многопотоковое исполнение способом соответствовать лучше стилю Clojure.

31
ответ дан Brian Carper 11 October 2019 в 07:03
поделиться

У меня нет определенного ответа, но я рекомендовал бы эти ресурсы:

8
ответ дан zweiterlinde 11 October 2019 в 07:03
поделиться

Существует много учетных записей перехода от CL до Clojure ( блог , другой блог , Поток на HN).

самая большая проблема много Общих Lispers имеет с Clojure, когда они сначала проверяют его, его отсутствие Оптимизация последнего вызова , который не возможен на JVM.

5
ответ дан amalloy 11 October 2019 в 07:03
поделиться