IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Haskell Discussion :

parseur pour envoyer des cv


Sujet :

Haskell

  1. #1
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juillet 2011
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2011
    Messages : 10
    Points : 8
    Points
    8
    Par défaut parseur pour envoyer des cv
    Bonjour,
    Je viens vous voir aujourd'hui car depuis un certain temps, j'essaie dautomatiser mes envois de cv.
    J'ai donc pondu du code qui normalemen sur papier marchait plus ou moins mais qui en fait l'inverse en réalité.

    J'ai un fichier tesfile.txt comme suis :ç

    recrutement1@site.rage 52541 "cadre"
    recrutement2@site.pat 4523 "balayeur"
    recrutement3@site.lol 4520 "consultant"
    recrutement1@sruisu.uiu 464646 "escroc"

    Ainsi que le script suivant pour envoyer desles mails :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    #! /bin/sh
     
    path = "~/scripts/project_mall"
    vc = "$path/curriculum.pdf"
    tiv = "$path/motiv.pdf"
     
    lignes = $(runhaskell parseMailDb.hs $1)
    i = 1
     
    until $i == $lignes
    do  (mail1_s $(runhaskell parseMailDb.hs $1 2 $i) $(runhaskell parseMailDb.hs $1 3 $i) ; uuencode $vc $vc ; uuencode $tiv $tiv) | mailx -s "candidature spontanèe" $(runhaskell parseMailDb.hs $1 1 $i)
        $i++
    done
    mail1_s contient :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    #! /bin/sh
     
    echo message $1 lol $2
    Et enfin mon script haskell :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
     
    import System.Environment
    import System.IO
     
    field_arg :: Int -> [String] -> String
    field_arg x a = if length a > 2
                    then if x < 4 then a !! x else "field number is too high"
                    else "field number is too low"
     
    line_arg :: Int -> [String] -> String
    line_arg x a
        | x > length a = "line number is too big"
        | x < 1        = "line number is too low"
        | otherwise    = a !! x
     
    extrcta :: Int -> Int -> String -> String
    extrcta x n = field_arg x . words . line_arg n . lines
     
     
    arg_list1 :: String -> [((Int, Int), Int -> Int -> String -> String)]
    arg_list1 n = let n1 = read n
                  in [((1, n1), extrcta 1 n1)
                     ,((2, n1), extrcta 2 n1)
                     ,((3, n1), extrcta 3 n1)
                     ]
     
     
    main :: IO ()
    main = do
            args <- getArgs
            case args of
                       (path: opt1: opt2: _) -> case (opt1, opt2) `lookup` arg_list1 opt1 of
                                                                                           Nothing -> putStrLn $ "Wrong argument " ++ opt1 ++ "or" ++ opt2
                                                                                           Just act -> do
                                                                                                        withFile path ReadMode (\handle -> do
                                                                                                                                            contents <- hGetContents handle
                                                                                                                                            putStrLn $ act contents)
                       (path: _) -> do
                                     withFile path ReadMode (\handle -> do
                                                                       contents <- hGetContents handle
                                                                       putStrLn $ show . length . lines contents)
                       _ -> putStrLn "Wrong number of argument"
    Compilons le script ci-dessus, en disont parseMailDb. on l'appelle ainsi :
    parseMailDb testfile.txt field line
    Par exemple parseMailDb testfile.txt 1 4 rends recrutement1@sruisu.uiu

    Le probleme c'est que je ne comprends pas pourquoi ça ne compile pas (je ne sais pas si le tout marche). De plus ma gestion des erreurs est mediocre....

    Toute aide serait appreciée.
    Cordialement Nel.

  2. #2
    Futur Membre du Club
    Profil pro
    Inscrit en
    Juillet 2011
    Messages
    10
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juillet 2011
    Messages : 10
    Points : 8
    Points
    8

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    36
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 36
    Points : 54
    Points
    54
    Par défaut
    C'est l'occasion de regarder du côté de regarder du côté de Parsec pour ce genre de problèmes, vu que c'est une librairie importante du monde Haskell, ça vaut le coup.

  4. #4
    Membre averti
    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Mai 2009
    Messages
    97
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Finance

    Informations forums :
    Inscription : Mai 2009
    Messages : 97
    Points : 307
    Points
    307
    Par défaut
    Avec ce genre de parsing "simple", il pourrait être aussi intéressant de le faire soi meme avec une donnée de type

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    data Parser a = P{parse :: String -> Validation (String, a)}
    ou Validation serait:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    data Validation a = Err String | Value a
    A chaque fois, qu'un parser réussi, on revoit le reste à traiter et la valeur parsée.

    En implémentant un comportement monadique à Parser, on peut avoir une solution élégante avec propagation d'erreur

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Un composant pour envoyer des SMS, ça existe ?
    Par Revan777 dans le forum C++Builder
    Réponses: 1
    Dernier message: 16/01/2006, 17h20
  2. Réponses: 4
    Dernier message: 28/03/2005, 20h42
  3. Utiliser hylafax pour envoyer des fax
    Par ggnore dans le forum Applications et environnements graphiques
    Réponses: 2
    Dernier message: 08/07/2004, 22h57
  4. configurer sql pour envoyer des mails
    Par arwen dans le forum MS SQL Server
    Réponses: 6
    Dernier message: 29/07/2003, 16h28
  5. Script pour envoyer des info a mysql
    Par rhum1 dans le forum Linux
    Réponses: 6
    Dernier message: 15/04/2003, 17h19

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo