[ФП] пример работы с файлами?

#!/usr/bin/perl
use warnings;
use strict;

open LIST,">","abc.dat" or die "abc.dat: $!\n";
for (glob "*.so") {
print LIST "$_\n";
}
close LIST or die "abc.dat: $!\n";

В случае юникодных имён файлов может ругаться на wide charachter in print, это не смертельно и лечится open LIST,">:utf8","abc.dat".

AITap (30.08.2010 16:11:54)

> вывести в файл abc.dat список всех файлов в текущем каталоге, имя которых заканчивается на '.so'

бугага.

 ls | grep \.so$ | sort > abc.dat [\code]

и скажи еще что это не функционально ;) 

Rastafarra (30.08.2010 16:14:04)

http://rosettacode.org/wiki/File_IO

dmitry_vk (30.08.2010 16:18:47)

http://book.realworldhaskell.org/read/systems-programming-in-haskell.html

http://www.haskell.org/haskellwiki/Tutorials/Programming_Haskell/String_IO
http://www.haskell.org/tutorial/io.html

примеров в сети чуть более, чем дофига; стоит ли расценивать твоё сообщение как вброс, или как элементарную глупость?

jtootf (30.08.2010 16:24:20)

Глупость функциональщиков, да? На поцвставленный вопрос то никто конкретно не ответил. Где код на какацкеле, который был бы короче вышеприведенного императивного кода на bash?!?

Перл - не функциональный язык.

JackYF (30.08.2010 16:36:52)

>и скажи еще что это не функционально ;)

Скажу. Bash - императивный язык.

JackYF (30.08.2010 16:37:27)

>> короче вышеприведенного императивного кода на bash

В каком месте он на bash? ls, grep и sort уже стали командами bash?

GotF (30.08.2010 16:37:30)

>http://rosettacode.org/wiki/File_IO

Посмотрел вариант на Haskell - нет обработки ошибок.

JackYF (30.08.2010 16:38:29)

(grep-all-so-files-to-abc-dat)

ты нормальный, не? :)

покажи, где там императивщина?

Rastafarra (30.08.2010 16:40:56)

>http://book.realworldhaskell.org/read/systems-programming-in-haskell.html

Много букв, в середине есть большой исходник с IO, почти без обработки ошибок.

>http://www.haskell.org/haskellwiki/Tutorials/Programming_Haskell/String_IO

Обработки ошибок нет совсем.

> http://www.haskell.org/tutorial/io.html

Здесь, по большому счёту, тоже.

Как видишь, из чуть более, чем до фига примеров очень непросто найти то, что нужно.

JackYF (30.08.2010 16:47:05)

>покажи, где там императивщина?

Я просил программу на ФП. Ты мне привёл вызов императивных программ из императивного языка.

JackYF (30.08.2010 16:48:39)

>В каком месте он на bash?

От баша здесь разрыв строки в качестве управляющего символа )

annulen (30.08.2010 16:48:44)

смотри раздел I/O Exceptions:

http://book.realworldhaskell.org/read/error-handling.html

jtootf (30.08.2010 16:49:24)

раздел 7.3, не?

jtootf (30.08.2010 16:52:19)

> вызов _императивных_ _программ _

wtf??? :)

Rastafarra (30.08.2010 17:03:32)

>смотри раздел I/O Exceptions:

>http://book.realworldhaskell.org/read/error-handling.html

Извини, я хочу конкретный маленький исходник, а не общие принципы. Я хочу увидеть примитивную, но законченную программу.

JackYF (30.08.2010 17:11:38)

>раздел 7.3, не?

Мм, да, в конце раздела теперь заметил. Но: что напечает строка

catch getLine'' (\err -> return ("Error: " ++ show err))

если, скажем, read(2) свалится с EIO? Или EINTR? Это мне интереснее всего.

JackYF (30.08.2010 17:16:41)

>> вызов _императивных_ _программ _

> wtf??? :)

Программ, написанных на императивных языках. Self-fix.

JackYF (30.08.2010 17:17:31)

>main = (readFile "input.txt" >>= writeFile "output.txt") `catch` (\_ -> print "wtf?")

Обработка ошибок включает в себя вывод человекочитаемой (или хотя бы машиночитаемой) информации, при работе с каким файлом произошла ошибка и какая именно ошибка.

JackYF (30.08.2010 17:19:46)

import System.Directory import Data.List

main = getDirectoryContents "." >>= writeFile "abc.dat" . unlines . filter (\a -> ".so" `isSuffixOf` a)

без обработки ошибок

unC0Rr (30.08.2010 17:20:17)

> main = getDirectoryContents "." >>= writeFile "abc.dat" . unlines . filter (\a -> ".so" `isSuffixOf` a)

Спасибо.

JackYF (30.08.2010 17:25:15)

[code]main = (readFile "input.txt" >>= writeFile "output.txt") `catch` print[/code]

>Скажу. Bash - императивный язык.

Ну... а вот пиведеный код весьма функционален =)

Waterlaz (30.08.2010 17:38:11)

>[code]main = (readFile "input.txt" >>= writeFile "output.txt") `catch` print[/code]

Гм, что напечает эта программа, если input.txt запрещён для чтения?

JackYF (30.08.2010 17:40:47)

>Ну... а вот пиведеный код весьма функционален =)

Ну, всё же не Bash меня сейчас интересует :)

JackYF (30.08.2010 17:44:21)

main = (readFile "input.txt" >>= writeFile "output.txt") `catch` print

Что-то в духе..

$ runhaskell tst.hs
input.txt: openFile: permission denied (Permission denied)

Waterlaz (30.08.2010 17:54:41)

> Гм, что напечает эта программа, если input.txt запрещён для чтения?

input.txt: openFile: permission denied (Permission denied)

unC0Rr (30.08.2010 17:57:46)

> input.txt: openFile: permission denied (Permission denied)

О! Вот это то, что я хотел увидеть.

Открытым остаётся вопрос организации более сложной обработки (допустим, мы делаем fork(), и на EAGAIN нужно не закрыться с ошибкой, а подождать 5 секунд и попробовать ещё раз), но общая картина прояснилась, спасибо приславшим свои варианты.

JackYF (30.08.2010 18:03:21)

Используй окамл.

dave (30.08.2010 19:37:50)

>[code=bash] ls | grep \.so$ | sort > abc.dat [\code] и скажи еще что это не функционально ;)

Ф-но. Но аж 2 ошибки.

DonkeyHot (30.08.2010 20:36:58)

Это ты ненормальный. Есть сайд-эффект, устанавливается значение переменной окружения "$?".

>аж 2 ошибки

А посмотришь - даже 3.

DonkeyHot (30.08.2010 20:40:34)

Это безобразно, ящитаю. Какацкель в очередной раз сливает даже перлу с башем.

не вижу багфикса ;)

Rastafarra (30.08.2010 20:51:48)

>в очередной раз сливает даже перлу с башем

Не согласен. В приведённом реешнии "import"ы сойдут за пропущеный в bash-варианте PATH=, отсутствие которого в скрипте можно считать четвёртой ошибкой. Лямбда там не нужна, можно «... filter (isSuffixOf ".so")», т.ч. если дождёмся исправленого башевского варианта, он может оказаться не сильно лучшим.

DonkeyHot (30.08.2010 20:56:28)

>не вижу багфикса

Это же ты вызвался башлить :)

DonkeyHot (30.08.2010 20:58:20)

"у меня все работает"

Rastafarra (30.08.2010 21:00:03)

> Есть сайд-эффект

ну... без них даже IO не работает, да? :)

Rastafarra (30.08.2010 21:09:12)

>"у меня все работает"

Эка невидаль. Мои скрипты тоже все в некоторых условиях работают.

DonkeyHot (30.08.2010 21:09:59)

#!/bin/bash
for i in *.so ; do [[ -f $i ]] && echo "$i" >> abc.dat ; done

не?

>> аж 2 ошибки

> А посмотришь - даже 3.

Почему не 300? А лучше 300!

tailgunner (30.08.2010 23:05:55)

Так сильно не понимать что такое ФП...

vertexua (30.08.2010 23:10:11)

package scalaapp1

import java.io._;

object Main {

  def main(args: Array[String]): Unit = {
    var k = new PrintWriter(new FileOutputStream("abc.dat"))
    
    k.println(
        new File(".").
        listFiles.
        filter({_.isFile}).
        filter({_.getName.toLowerCase.endsWith(".so")}).
        foldLeft("")((A,B)=>A+B+"\n")
      )
    
    k.close()
  }

}

Более функционально на Scala нельзя, потому что без явного close ничего не записывает.

vertexua (30.08.2010 23:50:41)

Чуть красивее

toFile("abc.dat"){
      new File(".").
      listFiles.
      filter({_.isFile}).
      filter({ _.getName.toLowerCase.endsWith(".so")}).
      foldLeft("")((A,B)=>A+B+"\n")
}

но необходим все тот же костыль

def toFile(s:String)(f: =>String){
    var k = new PrintWriter(new FileOutputStream(s))
    k.println(f)
    k.close()
  }

vertexua (31.08.2010 0:26:15)

Первая -- неэкранированный $, вторая -- sort без -. А третья какая?

balodja (31.08.2010 0:53:51)

А, вижу, обратный слеш один вместо двух.

balodja (31.08.2010 0:55:02)

Хм, даже в POSIX'е sort без указанных файлов берет ввод из stdin, так что отсутствие - -- это не ошибка. Где же тогда третья?

balodja (31.08.2010 0:59:35)