Discussion :

[etudiant en hydro]

Bonjour.

Voici le début d'un script sur lequel je planche.

Code :

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

1
2
3
4
5
6
 
 
use POSIX;
open (input1,'test.smt') || die "Pb d'ouverture du fichier";
open (input2, 'nbpuits.txt') || die "Pb d'ouverture du fichier";
open (output1,'>Resultats.csv');

Le fichier input2 contient des valeurs scalaires ponctuelles du genre :

Code :

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

1
2
3
 
$nbprod=8
$nbinj=5

que j'aimerais pouvoir lire dans ce script perl sans avoir à les écrire à la main.

Comment faire pour que cela puisse être possible?
J'ai déjà essayé pour le script que je suis en train d'éditer des commandes du genre

Code :

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

1
2
 
$prod = sysread (output1, $numprod, 100)

ou bien

Code :

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

1
2
 
$prod = read (output1, $numprod, 100)

mais cela ne fonctionne pas.
Quelle serait la syntaxe adéquate, SVP?

[etudiant en hydro]

Bonjour mon brave .
Vous devriez essayer cette petite commande toute bête (crétin, va! ):

Code :

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

1
2
3
4
 
$ligne=<input2>;
$prod=<input2>;
chomp $prod;

dans le cas où la première ligne du fichier output2 est occupée par une ligne de commentaire.
Et ainsi de suite...

Bon, plus sérieusement, si quelqu'un pouvait me proposer une syntaxe qui puisse être plus générale, j'accepte.
Bon week-end.

[MarneusCalgarXP]

Si ton fichier ne contient qu'un bloc perl du genre
[code]$nbprod=8;
$nbinj=5;[code]

Tu peux faire un include de ce fichier

Code :

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

include("fichier.txt");

et les variables seront directement utilisables

Sinon, il faudra le lire dans une hash:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
use POSIX;
open (my $input1,'<', 'test.smt') || die "Pb d'ouverture du fichier test.smt";
open (my $input2, '<', 'nbpuits.txt') || die "Pb d'ouverture du fichier nbpuits.txt";
open (my $output1,'>', 'Resultats.csv') || die "Pb Ouverture fichier Resultats.csv";
 
my %hash = ();
while (<$input1>)
{
    if ( m/^\$([a-zA-Z]+)=(\d+)$/ )
    {
        my ($name, $value) = ($1, $2);
        $hash{$name} = $value;
    }
}

[etudiant en hydro]

Bonjour et merci d'avoir réopndu.
En fait, j'ai voulu rendre ce problème résolu avant que tu ne répondes mais j'ai d'abord fini de commenter mon script.
En fait, mon input2 est devenu entre temps une sorte de fichier fourre-tout, ce qui fait que j'ai pu me permettre de faire une simple boucle pour réussir à le lire.

Encore merci et bon week-end!

[Jedai]

Si ton fichier ne contient qu'un bloc perl du genre
[code]$nbprod=8;
$nbinj=5;[code]

Tu peux faire un include de ce fichier

Code :

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

include("fichier.txt");

et les variables seront directement utilisables

include() n'existe pas en Perl, éventuellement il aurait pu utiliser do() même si je ne lui recommande pas...

Sinon, il faudra le lire dans une hash:

Code :

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

1
2
 
use POSIX;

Pourquoi POSIX ? POSIX est un module lourd, dont il est largement préférable de se passer si c'est possible comme ici (encore que la situation se soit amélioré dans les versions récentes de Perl).

--
Jedaï

[MarneusCalgarXP]

include() n'existe pas en Perl, éventuellement il aurait pu utiliser do() même si je ne lui recommande pas...

Je voulais dire require, autant pour moi

Pourquoi POSIX ? POSIX est un module lourd, dont il est largement préférable de se passer si c'est possible comme ici (encore que la situation se soit amélioré dans les versions récentes de Perl).

Copier coller du script du 1° post, c'est la simple raison..