HttpStatus.fs

type HttpStatus =
    { Code: string; Message: string }
    override self.ToString () = sprintf "%s %s" self.Code self.Message

let httpStatus code message = { Code = code; Message = message }

let httpStatusList =[
    httpStatus "100" "Continue";
    httpStatus "101" "Switching Protocols";
    httpStatus "102" "Processing";
    httpStatus "200" "OK";
    httpStatus "201" "Created";
    httpStatus "202" "Accepted";
    httpStatus "203" "Non-Authoritative Information";
    httpStatus "204" "No Content";
    httpStatus "205" "Reset Content";
    httpStatus "206" "Partial Content";
    httpStatus "207" "Multi-Status";
    httpStatus "208" "Already Reported";
    httpStatus "300" "Multiple Choices";
    httpStatus "301" "Moved Permanently";
    httpStatus "302" "Found";
    httpStatus "303" "See Other";
    httpStatus "304" "Not Modified";
    httpStatus "305" "Use Proxy";
    httpStatus "307" "Temporary Redirect";
    httpStatus "400" "Bad Request";
    httpStatus "401" "Unauthorized";
    httpStatus "402" "Payment Required";
    httpStatus "403" "Forbidden";
    httpStatus "404" "Not Found";
    httpStatus "405" "Method Not Allowed";
    httpStatus "406" "Not Acceptable";
    httpStatus "407" "Proxy Authentication Required";
    httpStatus "408" "Request Timeout";
    httpStatus "409" "Conflict";
    httpStatus "410" "Gone";
    httpStatus "411" "Length Required";
    httpStatus "412" "Precondition Failed";
    httpStatus "413" "Request Entity Too Large";
    httpStatus "414" "Request-URI Too Large";
    httpStatus "415" "Unsupported Media Type";
    httpStatus "416" "Request Range Not Satisfiable";
    httpStatus "417" "Expectation Failed";
    httpStatus "418" "I'm a teapot";
    httpStatus "422" "Unprocessable Entity";
    httpStatus "423" "Locked";
    httpStatus "424" "Failed Dependency";
    httpStatus "425" "No code";
    httpStatus "426" "Upgrade Required";
    httpStatus "428" "Precondition Required";
    httpStatus "429" "Too Many Requests";
    httpStatus "431" "Request Header Fields Too Large";
    httpStatus "449" "Retry with";
    httpStatus "500" "Internal Server Error";
    httpStatus "501" "Not Implemented";
    httpStatus "502" "Bad Gateway";
    httpStatus "503" "Service Unavailable";
    httpStatus "504" "Gateway Timeout";
    httpStatus "505" "HTTP Version Not Supported";
    httpStatus "506" "Variant Also Negotiates";
    httpStatus "507" "Insufficient Storage";
    httpStatus "509" "Bandwidth Limit Exceeded";
    httpStatus "510" "Not Extended";
    httpStatus "511" "Network Authentication Required"
    ]

let (|MatchStatus|_|) key status =
    if status.Code.Contains (key) || status.Message.Contains (key)
    then
        Some (status)
    else
        None
let showStatus key = List.iter (function | MatchStatus key status -> printfn "%s" (status.ToString ()) | _ -> ()) httpStatusList

[<EntryPoint>]
let main args =
    if args.Length <> 1 then showStatus ""
    else showStatus args.[0]
    0

httpStatus.rst

一般的な Web Programmer ならば、HTTP Status code はすべて暗記していると聞きました。

しかし、僕は初心者なので、なかなか覚えきれていないので、HTTPのステータスコードをさがすのに便利なツールを用意しました。

HttpStatus.fs です。インストール方法は 適当にコンパイルしてください。

See also

httpstatus コマンドで、HTTP のステータスコードをすばやくしらべる! - tokuhirom's blog.

Big Sky :: httpstatus コマンドで、HTTP のステータスコードをすばやくしらべる!

httpstatus コマンドで、HTTP のステータスコードをすばやくしらべる! - ( ꒪⌓꒪) ゆるよろ日記

httpstatusコマンドで、HTTPのステータスコードをすばやくしらべる! - YAMAGUCHI::weblog