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