1. Куча / Говнокод #7230

    +132

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    60. 60
    61. 61
    62. 62
    63. 63
    64. 64
    65. 65
    66. 66
    67. 67
    68. 68
    69. 69
    70. 70
    71. 71
    72. 72
    73. 73
    74. 74
    75. 75
    76. 76
    77. 77
    78. 78
    79. 79
    80. 80
    81. 81
    82. 82
    open System.Net
open System.Text.RegularExpressions
open System.Text
open System

type userInfo = 
    { User : string;
      Rating : double;}

let  mutable Users  = []

(* Заполняем списки юзверей *)
let getUsersInfo s = 
    let mutable  m = Regex.Match(s, @">(?<user>[^<]+)</a></td>\s+<td class=""strength"">[^<]+</td>\s+<td class=""rating""><strong>(?<rating>[^<]+)") //+ Оптимизировать регулярку. (Page 2)
    while(m.Success) do
        let info = {User = m.Groups.["user"].Value;  Rating =  m.Groups.["rating"].Value |> double}
        Users <- Users @ [info]
        m <- m.NextMatch()
    
(* скачивание страницы по индексу *)
let getSourceForUsers p = 
    let url = "http://freehabr.ru/people/good/page" + string(p)
    let wc = new WebClient();
    let s = wc.DownloadString(url);
    printfn "Разобрана %i страница" p
    getUsersInfo s

(* получить индекс последней страницы *)    
let getLastPage =  
    let wc = new WebClient()
    wc.Encoding <- Encoding.UTF8
    let s = wc.DownloadString "http://freehabr.ru/people/"
    Regex.Match(s,@"(?<=e)\d+(?=/"">п)").Value |> int

let lastPage = getLastPage

let printList a =
    a |> List.iter (fun x -> printfn "%s рейтинг - %.2f" x.User x.Rating)
    Console.ReadKey() |> ignore
 
[<EntryPoint>]
let main(args:string[]) =
  printfn "Парсер юзерей с положительным (или нулевым) рейтингом"
  printfn "%i -- Количество страниц" lastPage
  printfn "scan --XX - __ Cбор списка пользователей от первой страницы до XX"
  printfn "scan --YY --XX __ Сбор списка пользователей от YY страницы до XX. \nXX не может быть больше, чем максимальное количество страниц в списках юзеров с положительной кармой"

  let userInput = Console.ReadLine();
  match userInput with
  | _ when userInput.StartsWith "scan --" -> let a = Regex.Split(userInput,"--")
                                             let dig = a.[1] |> int
                                             if a.Length = 2 then  // для первого варианта                                               
                                                [1 .. dig] 
                                                |> List.iter getSourceForUsers
                                             else // для второго
                                                [ dig .. a.[2] |> int ] 
                                                |> List.iter getSourceForUsers
                                             printfn "~~~\nЮзеры посчитаны"
                                                
                                          
  | _ -> printfn "Завершение приложения"
         exit(1) 
  
  printfn "~~~~\nОбработка списка\n~~~~"
  printfn "usersGreaterRate --XX __ Показать пользователей,\nу которых рейтинг больше или равен XX"
  printfn "usersLessRate --XX __ Показать пользователей,\nу которых рейтинг меньше или равен XX"
  printfn "usersWithNamesBegins --String __ Показать пользователей,\nу которых имя начинается со строки String"
  let usersOper = Console.ReadLine()
  let param = Regex.Split(usersOper," --").[1] 
  match usersOper with
  | _ when usersOper.StartsWith "usersGreaterRate --" -> Users 
                                                         |> List.filter (fun x -> x.Rating > (param |> double))
                                                         |> printList
  | _ when usersOper.StartsWith "usersLessRate --" -> Users
                                                      |> List.filter (fun x -> x.Rating < (param |> double))
                                                      |> printList
  | _ when usersOper.StartsWith "usersWithNamesBegins --" -> Users
                                                                |> List.filter (fun x -> x.User.StartsWith param)
                                                                |> printList
  | _ -> printfn "Завершение приложения"
         exit(1) 
  0

    Запостил: qbasic, 12 Июля 2011

    Комментарии (23) RSS

    • ava Eugene 12.07.2011 13:49 # −1

      Жаль, что нет категории F#...
      Где говнокод? Кроме магических строк ничего страшного нет.
      Ответить

    • ava guest 12.07.2011 16:37 # −2

      http://pastebin.com/ceJwUqSE
      Ответить

    • ava guest 14.07.2011 01:09 # −2

      Открыли для себя F#?

      Где говно? *Выполняет призыв КЭП'а. Трах-тибидохХх-тибисдох*
      Ответить

    • ava Vasiliy 14.07.2011 08:11 # −1

      Знающие люди просветите чем F# лучше С# и вообще нах он нужен ?? или это чисто академический язык ?
      Ответить

      • ava TheHamstertamer 14.07.2011 08:39 # −1

        это плагиат О`Кемла, нужен он чтобы .NET захватил мир
        Ответить

        • ava inkanus-gray 14.07.2011 21:34 # 0

          А О'Кемл — академический проект или на нём уже написано что-то полезное? Пока видел только MLdonkey, но он настолько сырой, что лучше пользоваться отдельными клиентами для каждого протокола.
          Ответить

      • ava rat4 14.07.2011 15:36 # −1

        >чем F# лучше С#

        Буквой.
        Ответить

        • ava Vasiliy 14.07.2011 15:40 # −3

          Петросянить идите в ЖЖ
          Ответить

          • ava guest 15.07.2011 01:49 # −1

            Будто бы мы хотим послушать унылый рассказ без петросянства.
            Ответить

    Добавить комментарий