Discussion :

[User]

Bonsoir à tous,

Je connais peu le langage Perl et sa notation et j'aurais souhaité une petite aide pour rédiger un script tout simple consistant à lire un fichier texte (input.txt) placé dans le dossier courant du script Perl que je souhaite exécuter.

Par avance merci pour votre aide,
Bonne soirée,
Cdlt,
User

[Lolo78]

Hum, lire un fichier texte et ne rien faire avec, je ne vois pas trop l'utilité. Mais, bon...

Un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
my $infile = "input.txt";
open my $IN "<", $infile or die "Ouverture impossible de $infile $!";
while (my $line = <$IN>) {
    chomp $line; # enlever le caractère de fin de ligne (si nécessaire)
    # faire quelque chose avec $line
}
close $IN;

[Philou67430]

Si le script n'est pas lancé dans le dossier où se trouve le script, l'exemple de Lolo ne fonctionnera pas.

Pour lire à coup sûr un fichier dans le dossier du script, il convient d'utiliser le module (du core) FindBin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
use strict;
use warnings;
use FindBin;
 
my $infile = "$FindBin::Bin/input.txt";
# Suite du script inchangée

[User]

Si le script n'est pas lancé dans le dossier où se trouve le script, l'exemple de Lolo ne fonctionnera pas.

Pour lire à coup sûr un fichier dans le dossier du script, il convient d'utiliser le module (du core) FindBin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
use strict;
use warnings;
use FindBin;
 
my $infile = "$FindBin::Bin/input.txt";
# Suite du script inchangée

Tu as mis exactement le doigt sur mon problème.
J'essayais d'exécuter le script depuis Excel, en VBA

Maintenant c'est bon

Merci à vous 2,
Cdlt,
Denis

[Philou67430]

J'essayais d'exécuter le script depuis Excel, en VBA

Amusant comme architecture distribuée... tu peux montrer un exemple du code VBA ?

[User]

Amusant comme architecture distribuée... tu peux montrer un exemple du code VBA ?

L'idée c'est de passer une séquence sur un site, pour obtenir son alignement.

Il existe des script Perl pour ça comme sur cette page, mais pas de code VBA.

Donc, j'adapte le code Perl fourni sur la page et je lance le script avec cette macro VBA.

Cdlt,

[Lolo78]

Si le script n'est pas lancé dans le dossier où se trouve le script, l'exemple de Lolo ne fonctionnera pas.

La question d'origine spécifiait:

... lire un fichier texte (input.txt) placé dans le dossier courant du script Perl que je souhaite exécuter ...

Et le titre du post également.

[Philou67430]

Oui, j'ai bien lu la même chose
Le dossier courant du script perl est pour moi le dossier où se trouve actuellement le script perl (courant pouvant être considéré comme "implicite" puisqu'un script perl est toujours dans un dossier).