3

capslocker.hs には次のコードがあります。

import Control.Monad  
import Data.Char  
main = forever $ do  
    putStr "Give me some input: "  
    l <- getLine  
    putStrLn $ map toUpper l

haiku.txt には次の内容があります。

I'm a lil' teapot  
What's with that airplane food, huh?  
It's so small, tasteless

ターミナルでは、次のことができます。

optimight@optimight:~$ cat haiku.txt  
I'm a lil' teapot  
What's with that airplane food, huh?  
It's so small, tasteless

この：

optimight@optimight:~$ cat haiku.txt | ./capslocker  
Give me some input: I'M A LIL' TEAPOT  
Give me some input: WHAT'S WITH THAT AIRPLANE FOOD, HUH?  
Give me some input: IT'S SO SMALL, TASTELESS  
Give me some input: capslocker: <stdin>: hGetLine: end of file

emacs23-haskellモードで(ターミナルで行ったように)同じことをテストする方法は? ガイドしてください。

emacs - haskell モードでは、次のことを試したことに注意してください。

GHCi, version 7.4.1: http://www.haskell.org/ghc/  :? for help  
Loading package ghc-prim ... linking ... done.  
Loading package integer-gmp ... linking ... done.  
Loading package base ... linking ... done.  
Prelude> :load "/home/optimight/capslocker.hs"  
[1 of 1] Compiling Main      ( /home/optimight/capslocker.hs, interpreted )  
Ok, modules loaded: Main.  
*Main> cat haiku.txt | ./capslocker  
<interactive>:3:15: parse error on input `|'   
*Main>
4

1 に答える 1

4

ghci プロンプトから、接頭辞:!.

*Main> :! cat haiku.txt | ./capslocker

emacsでも同じように動作するはずです。

于 2012-08-03T22:17:52.750 に答える