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?