Изучай Haskell во имя добра! (Липовача) - страница 138

Эту проблему можно решить, спрашивая пользователя каждый раз, какой файл он хочет использовать как файл со списком заданий. Мы использовали такой подход, когда спрашивали пользователя, какой элемент он хочет удалить. Это, конечно, работает, но не идеально, поскольку пользователь должен запустить программу, подождать, пока она спросит что-нибудь, и затем дать ответ. Такая программа называется интерактивной, и сложность здесь заключается вот в чём: вдруг вам понадобится автоматизировать выполнение этой программы, например, с помощью скрипта? Гораздо сложнее написать скрипт, который будет взаимодействовать с программой, чем обычный скрипт, который просто вызовет её один или несколько раз!

Вот почему иногда лучше сделать так, чтобы пользователь сообщал, чего он хочет, при запуске программы, вместо того чтобы она сама спрашивала его после запуска. И что может послужить этой цели лучше командной строки!..

В модуле >System.Environment есть два полезных действия ввода-вывода. Первое – это функция >getArgs; её тип – >getArgs :: IO [String]. Она получает аргументы, с которыми была вызвана программа, и возвращает их в виде списка. Второе – функция >getProgName, тип которой – >getProgName :: IO String. Это действие ввода-вывода, возвращающее имя программы.

Вот простенькая программа, которая показывает, как работают эти два действия:

>import System.Environment

>import Data.List

>main = do

>   args <– getArgs

>   progName <– getProgName

>   putStrLn "Аргументы командной строки:"

>   mapM putStrLn args

>   putStrLn "Имя программы:"

>   putStrLn progName

Мы связываем значения, возвращаемые функциями >getArgs и >progName, с именами >args и >progName. Выводим строку >"Аргументы командной строки:" и затем для каждого аргумента из списка >args выполняем функцию >putStrLn. После этого печатаем имя программы. Скомпилируем программу с именем >arg-test и проверим, как она работает:

>$ ./arg-test first second w00t "multi word arg"

>Аргументы командной строки:

>first

>second

>w00t

>multi word arg

>Имя программы:

>arg-test