F# 处理命令行参数

F# 处理命令行参数

#light
open System;;

type env(svr1 : string, pot1 : string) =
    member x.Svr1 = svr1
    member x.Pot1 = pot1

let doSomething (e:env)=
    Console.WriteLine (String.Format("{0}:{1}", e.Svr1, e.Pot1))

[<EntryPoint>]
let Main  args =
    //printfn "Hello %A" args
    let e= (
        match args with
        | [|"test"|] -> new env("Server1","1000")
        | _ -> new env("Server2","2000")
    )
    //printfn "Hello %A" e.Svr1
    doSomething e |> ignore
    0

=====================

> Main [|"test"|];;
Server1:1000
val it : int = 0

> Main [|"aaaa"|];;
Server2:2000
val it : int = 0