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

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  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;

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