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

Web Perl Discussion :

commande "system" dans Perl


Sujet :

Web Perl

  1. #1
    Membre à l'essai
    Femme Profil pro
    Bioinformatique et Biostatistiques
    Inscrit en
    Février 2011
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Bioinformatique et Biostatistiques
    Secteur : Service public

    Informations forums :
    Inscription : Février 2011
    Messages : 22
    Points : 20
    Points
    20
    Par défaut commande "system" dans Perl
    Coucou les amis,

    J'ai un petit soucis avec mon script.
    Mon xml permet de choisir les données en input et mon script perl devrait récupérer ces arguments.

    Mais ce n'est pas le cas, l'argument est remplacé par le lien mais la commande "system" ne considère pas ça comme un fichier.
    J'ai testé : system ("date"); mais bizarre je n'ai même pas la date qui s'affiche O_o

    gth.xml
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    <tool id="gth" name="GenomeThreader" version="1.4.9">
      <description>computes gene structure predictions </description>
      <command interpreter="perl">gth.pl $inputgen $inputcdna $output  </command>
      <inputs>
        <param format ="fasta" name="inputgen"  type="data"  label="genomic sequence" />
        <param format ="fasta" name="inputcdna" type="data"  label="cdna sequence"/>
      </inputs>
      <outputs>
        <data format ="tabular" name="output" />
      </outputs>
    </tool>
    gth.pl
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
     
    #!/usr/bin/perl -w
    open (IN, "<$ARGV[0]"); #genomic 
    open (IN2, "<$ARGV[1]"); #cdna
    open (OUT, ">$ARGV[2]");
     
    $resultat=system(" /home/***/galaxy_dev/tools/genomethreader/bin/gth -genomic $ARGV[0] -cdna $ARGV[1] ");
    #$resultat=system("date");
     
    print OUT "$resultat"; 
     
    close( IN );
    close (IN2);
    close( OUT );
    merci de votre aide ^ ^

  2. #2
    Membre confirmé Avatar de Beniou
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    357
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Novembre 2009
    Messages : 357
    Points : 515
    Points
    515
    Par défaut
    Bonjour,

    Cela est normal, par défaut la commande system n'est pas faite pour récupérer le résultat d'une commande. La commande system va écrire le retour de la commande sur la sortie standard (STDOUT).

    Je te conseille d'utiliser les "backquote" pour exécuter ta commande et ainsi récupérer le résultat :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    my $resultat = `date`;
    print OUT $resultat;
    close(OUT);

  3. #3
    Membre à l'essai
    Femme Profil pro
    Bioinformatique et Biostatistiques
    Inscrit en
    Février 2011
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Bioinformatique et Biostatistiques
    Secteur : Service public

    Informations forums :
    Inscription : Février 2011
    Messages : 22
    Points : 20
    Points
    20
    Par défaut
    Alors ce que je voudrais justement c'est utiliser la commande system car en faisant comme tu dis, j'obtiendrai juste le string "date".
    Alors que moi je voudrais obtenir la date actuelle.

  4. #4
    Membre confirmé Avatar de Beniou
    Homme Profil pro
    Inscrit en
    Novembre 2009
    Messages
    357
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Nord (Nord Pas de Calais)

    Informations forums :
    Inscription : Novembre 2009
    Messages : 357
    Points : 515
    Points
    515
    Par défaut
    C'est parce que ce n'est pas une simple quote (') mais une backquote (`)...

    La backquote est en dessous du chiffre 7 sur un clavier azerty (combinaison des touches AltGr+7)

  5. #5
    Membre à l'essai
    Femme Profil pro
    Bioinformatique et Biostatistiques
    Inscrit en
    Février 2011
    Messages
    22
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France

    Informations professionnelles :
    Activité : Bioinformatique et Biostatistiques
    Secteur : Service public

    Informations forums :
    Inscription : Février 2011
    Messages : 22
    Points : 20
    Points
    20
    Par défaut
    Merci Beniou ça marche parfaitement !

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

Discussions similaires

  1. Réponses: 2
    Dernier message: 09/06/2006, 10h06

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