代码之家 › 专栏 › 技术社区 › McBear Holden

哈斯克尔海龟脚本:如何消费贝壳

haskell-turtle haskell

McBear Holden · 技术社区 · 7 年前

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。两个问题:

如何组合 procs 具有 Shell 流?
ffmpeg需要两个输入:一个用于 -i

我看过 foldIO 功能看起来很有前途。但我不知道怎么用。

1 回复 | 直到 5 年前

HTNW 7 年前

不要使用 view 就像那样。你用它来跑一 Shell ,并打印结果值,使您无法访问这些值。 壳 它本身是一个单子,所以你应该建立一个操作,然后使用运行 看法 或 sh (在不打印的情况下丢弃值)。(它们是终端函数;只有在完成所做的事情时才使用它们)。事实上 MonadIO Shell IO 你可以进来 壳 (通过 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

推荐文章

Azathoth · 当使用过滤器不删除任何案例时,涉及空列表的案例不会编译

2 年前

Ethan Smallwood · Haskell从列表中的记录获取数据

2 年前

trpnd · 如何定义由两个任意单声道变压器组成的单声道变压器?

2 年前

Delfin · Haskell从do符号到Applicative符号的传递(第2部分)

2 年前

Fabus1184 · Haskell mapM_不打印

2 年前

Gotthold · 基于范数约束向量的类型

2 年前

dmcdo · 有没有一种干净的方法可以在一个表达式中得到列表的开头和结尾?

2 年前

jian · haskell将另一个函数用作输入参数

2 年前

Jocafrei · 用Haskell函数实现最大公约数函数

6 年前

pcoppi · 尝试在Haskell和根据-Wall编写函数时,我需要一个匹配(\u:\ u:\ u)的模式。这个模式意味着什么,为什么我需要它?

6 年前