zoukankan      html  css  js  c++  java
  • F#牛刀小试

    这两天看了看F#,觉得还是非常容易上手的,顺手写了个一个非常简单的下载文件的程序。

    open System.Net
    open System.IO

    let getStreamData (stream : Stream) =
        seq {
                let buffer = Array.zeroCreate(1500)
                let count = ref 0
                while (count := stream.Read(buffer, 0, buffer.Length); !count) > 0 do
                    //printfn "%d" !count
                    yield (buffer, 0, !count)
            }

    let downloadFile (url : string) (file : string) =
        let req = WebRequest.Create(url)
        use rsp = req.GetResponse()
        use rspStream = rsp.GetResponseStream()
        use fileStream = File.Create(file)
        rspStream
        |> getStreamData
        |> Seq.iter fileStream.Write

    downloadFile "http://dlc2.pconline.com.cn/filedown.jsp?dlid=51901&linkid=6524421" @"r:\test.zip"

    由于目前对F#还是管中窥豹,这个程序中难免还有不少需要改进的地方,希望大家多提意见。

  • 相关阅读:
    nginx实现文件分享
    DataTable.Compute强大的功能
    flink学习01
    flink学习02
    ASIS TOBE
    Oracle安装
    运营与运维
    用户与租户的区别
    书的复制记录方案DP
    模拟题5
  • 原文地址:https://www.cnblogs.com/TianFang/p/1698955.html
Copyright © 2011-2022 走看看