Полезные сценарии F#

Иногда, если мне нужно краткое описание структуры XML (или иметь рекурсивный список для использования в других формах, например как поиск), я могу распечатать список узлов в XML с вкладками, используя следующий сценарий:

open System
open System.Xml

let path = "C:\\XML\\"
let xml_file = path + "Test.xml"

let print_element level (node:XmlNode) = [ for tabs in 1..level -> "   " ] @ [node.Name]
                                            |> (String.concat "" >> printfn "%s")

let rec print_tree level (element:XmlNode) = 
        element 
        |> print_element level
        |> (fun _ -> [ for child in element.ChildNodes -> print_tree (level+1) child ])
        |> ignore

new XmlDocument()
 |> (fun doc -> doc.Load(xml_file); doc)
 |> (fun doc -> print_tree 0 doc.DocumentElement)

Я уверен, что его можно оптимизировать / сократить, и я буду поощрять другие улучшения этого кода. :)

Предположим, что вам нужны сеансы на основе базы данных (Django также предлагает сеансы на основе файлов и на основе кэша):

1. Откройте settings.py и найдите MIDDLEWARE _ CLASSES . Добавьте в список 'django.contrib.sessions.middleware.SessionMiddleware' .
2. Найдите INSTALLED _ APPS в том же файле и добавьте туда 'django.contrib.sessions' .
3. Запустите manage.py syncdb из командной строки.

После начальной настройки можно использовать request.session в своих представлениях для хранения информации между запросами.

Например, здесь хранится информация:

request.session['name'] = 'Ludwik'

, которую можно легко получить:

print request.session['name']

или

if request.session['name'] == 'Ludwik':
   print 'you are awesome!'

. Для получения других сведений об объекте request.session см. документацию .

Если диапазон индекса разбивается на неперекрывающиеся диапазоны, то при условии, что массив создается в общей памяти (т.е. не каждым потоком), блокировки не требуются.

(Альтернативный фрагмент см. в ответе ниже.) Этот фрагмент преобразует XML с помощью XSLT. Я не был уверен в лучшем способе использования объектов XslCompiledTransform и StartDocument в F #, но он работал. Я уверен, что есть лучшие способы и был бы рад услышать о них.

(* Transforms an XML document given an XSLT. *)

open System.IO
open System.Text
open System.Xml
open System.Xml.Xsl

let path = "C:\\XSL\\"

let file_xml = path + "test.xml"
let file_xsl = path + "xml-to-xhtml.xsl"

(* Compile XSL file to allow transforms *)
let compile_xsl (xsl_file:string) = new XslCompiledTransform() |> (fun compiled -> compiled.Load(xsl_file); compiled)
let load_xml (xml_file:string) = new XmlDocument() |> (fun doc -> doc.Load(xml_file); doc)

(* Transform an Xml document given an XSL (compiled *)
let transform (xsl_file:string) (xml_file:string) = 
      new MemoryStream()
        |> (fun mem -> (compile_xsl xsl_file).Transform((load_xml xml_file), new XmlTextWriter(mem, Encoding.UTF8)); mem)
        |> (fun mem -> mem.Position <- (int64)0; mem.ToArray())

(* Return an Xml fo document that has been transformed *)
transform file_xsl file_xml
    |> (fun bytes -> File.WriteAllBytes(path + "out.html", bytes))

После разъяснения подходов к написанию кода F # с существующими классами .net появился следующий полезный код для преобразования документов xml в документы xsl. Эта функция также позволяет вам создать пользовательскую функцию для преобразования xml-документов с помощью определенного xsl-документа (см. Пример):

let transform = 
    (fun xsl ->
        let xsl_doc = new XslCompiledTransform()
        xsl_doc.Load(string xsl)

        (fun xml -> 
            let doc = new XmlDocument() 
            doc.Load(string xml)
            let mem = new MemoryStream()
            xsl_doc.Transform(doc.CreateNavigator(), null, mem)
            mem
        )
    )

Это позволяет вам преобразовывать документы следующим образом:

let result = transform "report.xml" "report.xsl"

или вы можете создать другую функцию, которую можно использовать несколько раз. раз:

let transform_report "report.xsl"

let reports = [| "report1.xml"; "report2.xml" |]
let results = [ for report in reports do transform_report report ]