Discussion :

[yanndan]

Bonjour tout le monde,
A la fin de mon script, j'imprime plusieurs lignes dans un fichier.

Code :

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

1
2
 
perl -w toto.pl FICHIER_OU_ECRIRE

J'aimerais que dans le cas où je tape

Code :

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

1
2
 
perl -w toto.pl

l'impression soit redirigé vers la sortie standard.
Ca va donner à peu pres ça mais ce que j'ai écrit ne marche pas.

Code :

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

1
2
3
4
5
6
7
8
 
if (defined($ARGV0])){
  open FILE ,"+>$ARGV[0]";
 
  }
  else {
  FILE=<STDOUT>
  }

SI vous avez des idées je suis preneur.

Merci bien et bon long week end à tous.

[Jedai]

Un truc comme ça :

Code :

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

1
2
3
4
5
6
7
8
 
if(@ARGV){
  open FILE, '>', $ARGV[0] 
    or die "Can't open $ARGV[0] : $!\n"; 
} else {
  open FILE, '>&', \*STDOUT
    or die "Can't reopen STDOUT : $!\n"; 
}

(Tu avais un "+>", mais comme de toute façon ouvrir en lecture/écriture STDOUT n'a pas beaucoup de sens, j'ai assumé que tu n'aurais besoin que d'écrire dans ce fichier)

J'ai employé ici la manière générale de faire lorsque l'on veut dup()liquer un descripteur de fichier, mais pour STDOUT en particulier, une façon plus idiomatique de faire est :

Code :

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

1
2
3
4
5
6
7
8
 
if(@ARGV){
  open FILE, '>', $ARGV[0] 
    or die "Can't open $ARGV[0] : $!\n"; 
} else {
  open FILE, '>-'
    or die "Can't reopen STDOUT : $!\n"; 
}

Bonne continuation. Et n'oublie pas de consulter la doc la prochaine fois, tout ceci est exposé dans la doc sur la fonction "open".

--
Jedaï

[yanndan]

Merci bien Jedai.
J'ai lu plein de docs mais pas celle là. Désolé.
J'yretourne et la prochaine fois, je regarde toutes les docs 3 fois .

Bonne journée