Haskell Turtle脚本:如何使用Shell

问题描述 投票:1回答:1
import Turtle
import Prelude hiding (FilePath)
import Data.Text hiding (find)
main = do
  f <- view $ format fp  <$> find (suffix ".mp4") "/Users/me/videos"
  procs "ffmpeg" ["-vn","-acodec","libmp3lame","-ac","2","-ab","160k","-ar","48000","-i"] empty

基本上我想将所有视频文件名都提供给ffmpeg。两个问题:

  1. 如何将procsShell溪流相结合?
  2. ffmpeg有两个输入:一个用于-i,另一个用于输出文件名。使用Turtle实现此目的的最佳做法是什么?

我看到foldIO功能看起来很有前途。但我无法弄清楚如何使用它。

haskell haskell-turtle
1个回答
2
投票

不要那样使用view。您使用它来运行Shell,它会打印结果值并使您无法访问它们。 Shell本身是一个monad,所以你应该建立一个Shell动作,然后与viewsh(丢弃值而不打印)。 (它们是终端功能;只有当你完成你正在做的事情时才使用它们)。事实上,MonadIO Shell,所以你可以在IO做任何你可以在Shell(通过liftIO :: MonadIO m => IO a -> m a)做。

main = sh $ do -- You don't want to print the output of this Shell (a bunch of ()s)
  filename <- format fp <$> find (suffix ".mp4") "/Users/me/videos"
  let output = findOtherName filename -- Find the output arg for ffmpeg
  procs "ffmpeg" ["-vn","-acodec","libmp3lame","-ac","2","-ab"
                 ,"160k","-ar","48000","-i",filename,output  ] -- Just add them on

这与之相当

#!/bin/sh
for filename in /Users/me/videos/*.mp4; do
    output="`findOtherName "$filename"`"
    ffmpeg -vn -acodec libmp3lame -ac 2 -ab 160k -ar 48000 -i "$filename" "$output"
done
© www.soinside.com 2019 - 2024. All rights reserved.