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

#!/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».

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

бугага.

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

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

http://rosettacode.org/wiki/File_IO

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

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

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

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

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

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

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

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

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

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

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

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

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

>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

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

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

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

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

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

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

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

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

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

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

раздел 7.3, не?

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

wtf??? :)

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

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

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

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

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

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

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

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

wtf??? :)

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

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

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

import System.Directory import Data.List

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

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

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

Спасибо.

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

>аж 2 ошибки

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

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

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

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

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

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

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

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

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

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

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

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

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

не?

>> аж 2 ошибки

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

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

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

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 ничего не записывает.

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

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()
  }

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

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

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