Comment écrire un script Perl pour convertir le fichier en majuscules?

Question

Comment écrire un script Perl pour convertir un fichier texte en majuscules?

Answer 1

perl -ne "print uc" < input.txt 

Le -n enveloppe votre script de ligne de commande (qui est fourni par -e) dans une boucle while. Un uc renvoie la version ALL-UPPERCASE de la variable par défaut $_, et ce que print fait, eh bien, vous le savez vous-même. ;-)

Le -p est juste comme -n, mais il fait un print en plus. Encore une fois, en agissant sur la variable par défaut $_.

Pour stocker que dans un fichier de script:

#!perl -n 
print uc; 

appel comme ceci:

perl uc.pl <in.txt> out.txt 

Answer 2

$ perl -pe '$_= uc($_)' input.txt > output.txt 

Answer 3

perl -pe '$_ = uc($_)' input.txt > output.txt

Mais alors vous ne même pas besoin de Perl si vous utilisez Linux (ou * nix). D'autres moyens sont les suivants:

awk:

awk '{ print toupper($0) }' input.txt >output.txt

tr:

tr '[:lower:]' '[:upper:]' < input.txt > output.txt

Answer 4

$ perl -Tpe " $_ = uc; " -- 

$ perl -MO=Deparse -Tpe " $_ = uc; " -- a s d f 
LINE: while (defined($_ = <ARGV>)) { 
    $_ = uc $_; 
} 
continue { 
    die "-p destination: $!\n" unless print $_; 
} 
-e syntax OK 

$ cat myprogram.pl 
#!/usr/bin/perl -T -- 
LINE: while (defined($_ = <ARGV>)) { 
    $_ = uc $_; 
} 
continue { 
    die "-p destination: $!\n" unless print $_; 
}