Forum Programmation.perl parcourir

Posté par  .
Étiquettes : aucune
0
21
mai
2007
Bonjour,

je commence le perl et je dois manipuler des fichiers de points, je désire juste remplacer l'écriture "manuelle" du fichier (D:\test_perl\5_point.neu') par un choix du style parcourir...

voici le code:

open F_NEU,''D:\test_perl\5_point.neu''
or die "E/S : $!\n";
my @contenu1 = <F_NEU>;

j'ai fait un autre script avec une fenêtre et un boutton que voici pour parcourir:
sub call_open_project
{
use File::Basename;
my $neufile;
my $types = [
['Configuration Files', ['.neu','.neu']],
['All Files', '*', ],
];
$filenameNEU = $fenetre->getOpenFile(-filetypes=>$types); }

mais les deux ensemble ne fonctionnent pas. je crois qu'il s'agit d'un problème avec "main".

Si un expert peut m'aider. merci

  • # reformulation

    Posté par  . Évalué à 0.

    en fait je peux reformuler le problème plus simplement:

    j'ai récupéré mon chemin du type :
    D:/test_perl/Copie de 5_tri.ptr que j'ai stocké dans $filenamePTR
    (je le vois quand j'en fais un print)

    alors mon script marche quand je mets :

    open F_PTR,'D:/test_perl/Copie de 5_tri.ptr'
    or die "E/S : $!\n";
    my @contenu2 = <F_PTR>;

    mais pas quand je mets :

    open F_PTR,'$filenamePTR'
    or die "E/S : $!\n";
    my @contenu2 = <F_PTR>;

    pour moi c'est là même chose! mais apparemment non.
    Pour moi c'est plus pratique de ne pas taper le chemin dans le programme.

    • [^] # Re: reformulation

      Posté par  . Évalué à 3.

      Remplace tes apostrophes par des guillemets.

      open F_PTR,"$filenamePTR"

      Avec les guillemets, Perl va remplacer $filenamePTR par sa valeur tandis qu'avec '$filenamePTR', il essaiera d' ouvrir le fichier nommé $filenamePTR.

      @++

      Cyril

    • [^] # Re: reformulation

      Posté par  . Évalué à 4.

      Il y a une différence : l'utilisation d'une variable dans les simples quotes ne marche pas :


      #!/usr/bin/perl
      my $a = 7;
      print "$a\n";
      print '$a\n';


      Me donne :

      7
      $a\n

  • # ok

    Posté par  . Évalué à 0.

    super ça marche! merci.

    Et vous savez comment je peux faire un executable de mon script perl?

    • [^] # Re: ok

      Posté par  . Évalué à 2.

      en mettant #!/usr/bin/perl en premiere ligne de ton script (a supposer que perl se trouve à cet endroit et en mettatn les droit d'execution sur le fichier chmod +x script.pl

      D'une maniere générale, tout script ligne peut etre rendu executable par la ligne #! suivit du chemin vers l'interpréteur : #!/bin/bash #!/usr/bin/php...

  • # executable pour ceux qui n'ont pas installer perl

    Posté par  . Évalué à 0.

    En fait je veux faire un executable windows.

    j'ai vu qu'il existe perl2exe et je me demandais comment je dois faire une fois que j'ai téléchargé perl2exe.

    j'ai vu dans le manuel utilisateur qu'il faut mettre une ligne du type :

    perl2exe monscript.pl quelque part mais je ne sais pas où.

    merci pour vos réponses

    • [^] # Re: executable pour ceux qui n'ont pas installer perl

      Posté par  . Évalué à 0.

      et à quoi sert le fichier win32 ini?

      je fais un executable en faisant >clic droit sur mon script.pl
      >ouvrir avec
      >perl2exe (application)

      mais me donne un executable qui ne fait rien et dont la fenetre se ferme de suite.

Suivre le flux des commentaires

Note : les commentaires appartiennent à celles et ceux qui les ont postés. Nous n’en sommes pas responsables.