pha*_*121 15 f# scala async-workflow
什么是F#的异步工作流的Scala等价物?
例如,如何跟随F#snippet转换为惯用的Scala?
open System.Net
open Microsoft.FSharp.Control.WebExtensions
let urlList = [ "Microsoft.com", "http://www.microsoft.com/"
"MSDN", "http://msdn.microsoft.com/"
"Bing", "http://www.bing.com"
]
let fetchAsync(name, url:string) =
async {
try
let uri = new System.Uri(url)
let webClient = new WebClient()
let! html = webClient.AsyncDownloadString(uri)
printfn "Read %d characters for %s" html.Length name
with
| ex -> printfn "%s" (ex.Message);
}
let runAll() =
urlList
|> Seq.map fetchAsync
|> Async.Parallel
|> Async.RunSynchronously
|> ignore
runAll()
Run Code Online (Sandbox Code Playgroud)
您或多或少直接编写的代码可以使用Futures(虽然丢失了一些重要功能)转换为Scala :
import scala.actors.Futures
import Futures._
val urlList = Map("Microsoft.com" -> "http://www.microsoft.com/",
"MSDN" -> "http://msdn.microsoft.com/",
"Bing" -> "http://www.bing.com")
def fetchAsync(name: String, url: String) = future {
// lengthy operation simulation
Thread.sleep(1000)
println("Fetching from %s: %s" format(name, url))
}
def runAll =
//Futures.awaitAll( <- if you want to synchronously wait for the futures to complete
urlList.map{case (name, url) => fetchAsync(name, url)}
//)
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
1935 次 |
| 最近记录: |