如何在球拍服务器应用程序中访问获取参数

Question

我的编程语言组织课程中有一个项目，正在使用 Racket 构建一个 Web API。我已经成功启动并运行了一个具有多个登陆页面的服务器，例如

localhost:8080/api/add 
localhost:8080/api/subtract

我是 Racket 新手，过去刚刚使用 PHP 来处理通过 URL 传递的 GET 参数。

比如...

localhost:8080/api/add/?num1=1&num2=3

PHP 可以使用

访问

num1

$_GET[ 'num1' ] ;

这应该如何在 Racket 中完成？我在 Racket 文档中没有找到任何显示等效方法的内容。我的最终目的是将 JSON 字符串作为 GET 参数 JSON

传递

localhost:8080/api/add/?json={ some json }

Answer 1

假设您正在使用Racket中的Web应用程序。

Servlet 过程接收请求对象并包含这些绑定。您可以通过

request-bindings

过程检索它，该过程返回绑定列表。 4 HTTP：超文本传输协议部分描述了如何访问请求对象。

Answer 2

好吧，我找到了解决方案

Racket 中的 POST/GET 绑定

本质上是为了得到

localhost:8080/api/add/?json={ some json }

你会用

(bytes->string/utf-8 
    (binding:form-value 
        (bindings-assq (string->bytes/utf-8 "[field_name_here]") 
                       (request-bindings/raw req))))

现在这回答了我的问题，但当搜索的绑定不存在时，我会遇到异常，因此我决定采取额外的步骤并执行存在检查。在 PHP 中，我想执行类似的操作...

<?php 

    function get_param_as_string( $param ) {
        if ( isset( $_GET[ $param ] ) )
            return $_GET[ $param ] ;
        return "" ;
    }

?>

所以我创建了球拍程序

(define (get-param->string req param)
    (if (eq? #f (bindings-assq (string->bytes/utf-8 param)
                               (request-bindings/raw req)))
        ""
        (bytes->string/utf-8 
           (binding:form-value 
               (bindings-assq (string->bytes/utf-8 param)
                              (request-bindings/raw req))))))

现在就像 url 问题指定的情况一样

localhost:8080/api/add/?json={ some json }

以下内容将检索 json GET 变量（如果存在），或者如果缺失则返回“”。所以...

(get-param->string req "json")

会导致...

{ some json }

和

localhost:8080/api/add/?tmp={ some json }

或

localhost:8080/api/add/

会导致...

""