Discussion :

[onime]

Bonjour j'aimerais savoir pourquoi ce script n'écrit dans le fichier qu'à la fin de l’exécution du script. Cela fonctionnait avec des socket mais pas avec un fichier.

Code :

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

1
2
3
4
5
6
7
8
open(ECRIRE,">>","ecrire.txt");
 
 
while ( 1 ) {  
  my $lig = <STDIN> ;
  print ECRIRE $lig ;
  last if ( $lig eq "/q\n" ) ;  
}

Edit : En utilisant syswrite ça fonctionne, mais j'aimerais savoir si c'est la meilleur solution.

[x-lours]

bonjour,

si je ne me trompe pas, il s'agit d'une question de taille de buffer.
si tu saisis plus que cette taille alors il l'écrira dans le fichier puis attendra ta nouvelle saisie.