Программа принимает в командной строке имя файла и распечатывает его на экране, ошибка в стрелке

@White Luna · Регистрация: 08.09.2010

Author24 — интернет-сервис помощи студентам

Программа принимает в командной строке имя файла и распечатывает его на экране

Haskell

import IO
-- программа просит ввести имя файла и распечатывает его на экране
printFile = do putStr "Укажите файл: "
name <- getLine
fromHandle <- openFile name ReadMode
contents <- hGetContents fromHandle
hPutStr stdout contents

на такой код выдает ошибку

C:\lab.hs:4:6: parse error on input `<-'
не могу понять, что ей не нравиться? подскажите пж

Добавлено через 4 минуты

Haskell

import IO
 
printFile = do putStr "adres Faila kakov: "
               name <- getLine
               fromHandle <- openFile name ReadMode
               contents <- hGetContents fromHandle
               hPutStr stdout contents

извиняюсь за вопрос нашла ошибку в построение,

@bokunopico · 04.04.2012, 23:00

Только не забывай закрывать (hClose) файл через дескриптор.

Сообщение от White Luna

Программа принимает в командной строке имя файла

По-моему, тут тоже надо getArgs использовать из твоего предыдущего вопроса.

@White Luna · 04.04.2012, 23:21 **[ТС]**

Код

import IO

printFile = do putStr "adres Faila kakov: "
               name <- getLine
               fromHandle <- openFile name ReadMode
               contents <- hGetContents fromHandle
               hPutStr stdout contents
	       hClose stdout

добавила и после вывода взялась ошибка
<stdout>: hFlush: illegal operation (handle is closed)

с чем может быть связано, хотя выводит все так? просто смущает

@bokunopico · 04.04.2012, 23:31

Сообщение от White Luna

hClose stdout

Ты шутница, закрываешь стандартный файловый поток вывода.

Haskell

1	hClose fromHandle

1) Открываешь файл
2) Считываешь содержимое
3) Закрываешь файл
1)-2) пункты ты сделала, без 3) всё нормально работало, потому Haskell взял на себя заботу по освобождению захваченных ресурсов (закрытию файла) по окончании работы программы. Но иногда всё работает не так хорошо (например, в случае исключений), поэтому хорошая практика - явно закрывать открытые файловые потоки.

@Nameless One · 05.04.2012, 04:54

Haskell

1
2
3

import System.Environment (getArgs)
 
main = getArgs >>= readFile . head >>= putStr

Код

~/samples/haskell $ ghc --make sample.hs -o cat
[1 of 1] Compiling Main             ( sample.hs, sample.o )
Linking cat ...
~/samples/haskell $ ./cat sample.hs 
import System.Environment (getArgs)

main = getArgs >>= readFile . head >>= putStr
~/samples/haskell $

@bokunopico · 05.04.2012, 15:01

Сообщение от Nameless One

main = getArgs >>= readFile . head >>= putStr

Не по теме:

Реквестирую объяснения readFile и >>= для ТС. :)

@Nameless One · 05.04.2012, 15:05

Да запросто:
http://hackage.haskell.org/pac... v:readFile
http://hackage.haskell.org/pac... 2--62--61-

Или нужно объяснить, что такое монада?

@bokunopico · 05.04.2012, 15:11

Сообщение от Nameless One

Или нужно объяснить, что такое монада?

Да-да, объясни, пожалуйста, это же вроде какой-то эндофунктор (или экзофунктор вроде), нет?

@Nameless One · 05.04.2012, 15:12

bokunopico, это моноид в категории эндофункторов

@bokunopico · 05.04.2012, 15:19

А комонада? Это комоноид?

@Nameless One · 05.04.2012, 15:38

Сообщение от bokunopico

А комонада? Это комоноид?

не знаю, я их не разу не видел

Добавлено через 4 минуты
Судя по всему, все-таки комоноид: http://tinyurl.com/monad-comonad

@bokunopico 313 / 268 / 5 Регистрация: 03.04.2011 Сообщений: 456
	04.04.2012, 23:00	2
	Только не забывай закрывать (hClose) файл через дескриптор. Сообщение от White Luna Программа принимает в командной строке имя файла По-моему, тут тоже надо getArgs использовать из твоего предыдущего вопроса. 1

@White Luna 33 / 27 / 2 Регистрация: 08.09.2010 Сообщений: 402
	04.04.2012, 23:21 [ТС]	3
	Код import IO printFile = do putStr "adres Faila kakov: " name <- getLine fromHandle <- openFile name ReadMode contents <- hGetContents fromHandle hPutStr stdout contents hClose stdout добавила и после вывода взялась ошибка <stdout>: hFlush: illegal operation (handle is closed) с чем может быть связано, хотя выводит все так? просто смущает 0

@bokunopico 313 / 268 / 5 Регистрация: 03.04.2011 Сообщений: 456
	05.04.2012, 15:01	6
	Сообщение от Nameless One main = getArgs >>= readFile . head >>= putStr Не по теме: Реквестирую объяснения readFile и >>= для ТС. :) 0

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	05.04.2012, 15:05	7
	Да запросто: http://hackage.haskell.org/pac... v:readFile http://hackage.haskell.org/pac... 2--62--61- Или нужно объяснить, что такое монада? 0

@bokunopico 313 / 268 / 5 Регистрация: 03.04.2011 Сообщений: 456
	05.04.2012, 15:11	8
	Сообщение от Nameless One Или нужно объяснить, что такое монада? Да-да, объясни, пожалуйста, это же вроде какой-то эндофунктор (или экзофунктор вроде), нет? 0

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	05.04.2012, 15:12	9
	bokunopico, это моноид в категории эндофункторов 1

@bokunopico 313 / 268 / 5 Регистрация: 03.04.2011 Сообщений: 456
	05.04.2012, 15:19	10
	А комонада? Это комоноид? 0

@Nameless One 5828 / 3479 / 358 Регистрация: 08.02.2010 Сообщений: 7,448
	05.04.2012, 15:38	11
	Сообщение от bokunopico А комонада? Это комоноид? не знаю, я их не разу не видел Добавлено через 4 минуты Судя по всему, все-таки комоноид: http://tinyurl.com/monad-comonad 1