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

Langage Perl Discussion :

Traduire code Perl en C++


Sujet :

Langage Perl

  1. #1
    Membre à l'essai
    Inscrit en
    Juin 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Juin 2009
    Messages : 6
    Par défaut Traduire code Perl en C++
    Bonjour
    je dois "traduire" en c++ un programme est ecrit en perl, par exemple
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    open INPUTFILE, $inputfile or die "cant't open $inputfile\n";
    my $sourcefile;
    my $fn=0;
     
    while (my $zeile = <INPUTFILE>) {
    	if($zeile =~ /^input file:\s+(\S+).*$/) {
    		$sourcefile = $1;
    		$fn=1;
    	}
    je ne comprends d'abord pas bien, ce qui est fait
    et comment est ce que je peux l ecrire en c++ ?
    aidez moi s'il vous plait
    merci

  2. #2
    Expert confirmé
    Avatar de Jedai
    Homme Profil pro
    Enseignant
    Inscrit en
    Avril 2003
    Messages
    6 245
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Côte d'Or (Bourgogne)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Avril 2003
    Messages : 6 245
    Par défaut
    Ce qui est fait :
    Code Algo : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Ouvrir en lecture le fichier dont le nom est dans $inputfile;
     
    Lire ligne par ligne (dans $zeile) ce fichier :
        Si $zeile commence par "input file:" suivi d'au moins un espace Faire :
            $sourcefile <- tous les caractères non-espace qui suivent "input file:"
            $fn <- 1
        FinSi
    FinLire

    A toi de traduire ça en C++, ou tu peux toujours demander (un peu plus poliment et en langage correct) de l'aide sur les forums C++.

    --
    Jedaï

  3. #3
    Membre à l'essai
    Inscrit en
    Juin 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Juin 2009
    Messages : 6
    Par défaut merci et pour plus d eclairssicement, encore une question
    meri, cela veut dire que dans $sourcefile,on a seulement input file , cela veut dire que $1=input file , et dans $2 on trouve tous les caractères non-espace ?
    merci

  4. #4
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    non, lit bien l'algo de jedai

    Si la ligne de ton fichier est
    input file: bonjourmadame et monsieur
    $sourcefile sera bonjourmadame

    Il n'y aura pas de $2 car dans la regex, il n'y a pas de deuxième capture.

  5. #5
    Membre à l'essai
    Inscrit en
    Juin 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Juin 2009
    Messages : 6
    Par défaut merci
    merci beaucoup, cela m aide vraiment

  6. #6
    Membre à l'essai
    Inscrit en
    Juin 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Juin 2009
    Messages : 6
    Par défaut
    et l espace k il y avant je veut dire" \s+(\S+).*$/" cela veut dire k on doit aussi considere l espace
    peu etre comme
    input file: bonjourmadame et monsieur
    alors on peut avoir
    $sourcefile= bonjourmadame;

  7. #7
    Membre à l'essai
    Inscrit en
    Juin 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Juin 2009
    Messages : 6
    Par défaut
    ce n est pas sortit , ce ke je voulais ecrire;
    je veut dire en ce kei concerne \s

    et l espace k il y avant je veut dire" \s+(\S+).*$/" cela veut dire k on doit aussi considere l espace
    peu etre comme
    input file: bonjourmadame et monsieur
    alors on peut avoir
    $sourcefile= " bonjourmadame";

  8. #8
    Membre à l'essai
    Inscrit en
    Juin 2009
    Messages
    6
    Détails du profil
    Informations forums :
    Inscription : Juin 2009
    Messages : 6
    Par défaut
    en faite je voulais mettre espace avant bonjourmadame, mais cela n apparait pas sur l ecran , je veux dire que dans $sourcefile, on a d abord l espace et en suite bonjourmadame

  9. #9
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    Citation Envoyé par dng05 Voir le message
    en faite je voulais mettre espace avant bonjourmadame, mais cela n apparait pas sur l ecran , je veux dire que dans $sourcefile, on a d abord l espace et en suite bonjourmadame
    Si tu veux l'espace,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    if($zeile =~ /^input file:(\s+\S+).*$/) {
    et évite de poser des questions par Message privé. C'est interdit sur ce forum.

    Merci

  10. #10
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Par défaut
    Citation Envoyé par djibril Voir le message
    C'est interdit sur ce forum.
    Ah ! c'est carrément interdit ? mais on peut inviter quelqu'un à donner son avis dans une discussion... ou bien. Si c'est aussi interdit, mes excuses à Jedaï.

  11. #11
    Responsable Perl et Outils

    Avatar de djibril
    Homme Profil pro
    Inscrit en
    Avril 2004
    Messages
    19 822
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Avril 2004
    Messages : 19 822
    Par défaut
    C'est interdit dans le sens où beaucoup de nouveaux forumeurs comme dng05 inondent les forumeurs de messages privées avec des questions qu'ils pourraient mettre tout simplement sur le forum et attendre les réponses. ça devient parfois du harcellement, et ça s'est interdit.

  12. #12
    Expert confirmé

    Homme Profil pro
    Ingénieur développement logiciels
    Inscrit en
    Avril 2009
    Messages
    3 577
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : France, Bas Rhin (Alsace)

    Informations professionnelles :
    Activité : Ingénieur développement logiciels
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Avril 2009
    Messages : 3 577
    Par défaut
    OK, bien compris... d'autant que j'ai déjà été victime

Discussions similaires

  1. explication sur un code perl
    Par Melvine dans le forum Langage
    Réponses: 5
    Dernier message: 05/10/2006, 16h32
  2. pb code perl
    Par visteur dans le forum Langage
    Réponses: 3
    Dernier message: 06/03/2006, 09h43
  3. Réponses: 1
    Dernier message: 29/11/2005, 22h05
  4. [langage] code Perl
    Par GMI3 dans le forum Langage
    Réponses: 3
    Dernier message: 18/03/2004, 11h26

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