Discussion :

[saw-next]

Bonjour tout le monde ;

je débute en perl et j'ai un problème, je cherche à copier le contenu d'un fichier 1.txt dans un fichier 2.txt en changeant les caractères minuscules en majuscules:

mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#! perl
 
use strict; use warnings;
 
open(ORIG ,"< 1.txt") || die "file: 1.txt not found\n";
open(COPI ,"> 2.txt") || die "file: 2.txt not found\n";
 
while (<ORIG>)
{
  print COPI;
}

merci

[saw-next]

j'ai trouvé dans le forum "VOUS ÊTES GÊNIAL"

il fallait mettre un uc()

Code :

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

1
2
3
4
5
6
7
8
9
10
11
#! perl
 
use strict; use warnings;
 
open(ORIG ,"< 1.txt") || die "file: 1.txt not found\n";
open(COPI ,"> 2.txt") || die "file: 2.txt not found\n";
 
while (<ORIG>)
{
  print COPI uc($_);
}

merci

[thierry.chich]

Félicitation !