FAQ PerlConsultez toutes les FAQ

Au cours de vos programmes, vous aurez sans doute besoin de paramètres propres à l'utilisateur. Celui-ci aura alors à renseigner au programme ses propres données. Cette interaction, dans sa forme la plus simple, s'effectue via l'entrée standard (le clavier). Pour avoir accès à ce qui est rentré via le clavier, vous aurez besoin de manipuler l'opérateur STDIN :

1
2
3
4
print "Rentres une phrase :\n"; 
$in = <STDIN>; 
chomp $in; 
print "$in\n";

1
2
3
4
5
6
7
8
9
10
11
my $chaine = "Bonjour\n"; 
my $chomp  = chomp $chaine;    # $chaine = "Bonjour",  $chomp = "\n" 
  
my $chaine = "tutu\ntoto"; 
my $chomp  = chomp $chaine;    # $chaine = "tutu\ntoto",  $chomp1 = "" 
  
my $chaine = "\n"; 
my $chomp  = chomp $chaine;    # $chaine = "",  $chomp1 = "" 
  
my $chaine = "123"; 
my $chomp  = chomp $chaine;    # $chaine = "123",  $chomp1 = ""

Nous avons vu tout à l'heure que l'opérateur (ou handle, cf. les fichiers) STDIN était contenu dans un opérateur dit opérateur diamant <>. Cet opérateur est très utile notamment pour la manipulation des arguments fournis à votre programme. Un argument, pour un programme Perl, désigne un fichier que vous passez en paramètre à votre programme. Votre code lira ainsi le fichier donné :

perl mon_programme.pl GLDavid djibril gnux 2eurocents

1
2
3
4
foreach $ligne (<>) { 
	chomp $ligne; 
	print "$ligne\n"; 
}

La sortie standard détermine le média de sortie avec lequel votre programme affichera une information à vos utilisateurs. De manière commune, la sortie standard sera votre écran. Dans nos précédents codes sources, nous avons vu que pour afficher quelque chose, nous avions recours à la fonction print. Cette fonction prend en argument une chaîne de caractères qu'elle affichera sur la sortie standard. Mais elle permet aussi de vous afficher le contenu de variables.

1
2
3
4
5
$out = "Bonjour Maître.\n"; 
print "$out\n"; 
print "Voici mes maîtres :\n"; 
@tableau = qw /GLDavid Gnux djibril 2Eurocents/; 
print "@tableau";

Chers pratiquants du C, n'ayez pas peur de Perl ! Vous y retrouverez la première fonction que vous avez utilisée à vos débuts : printf ! Pour les non Cistes (codeurs en C), printf est une fonction permettant d'afficher, certes, sur la sortie standard mais aussi de formater ce que l'on souhaite imprimer. Prenons l'exemple d'un nombre avec décimales. Naturellement, pour certains de ces nombres, on ne veut retenir que quelques chiffres après la partie entière :

1
2
3
4
5
6
my $taux = 6.55957; 
print "Rentre une valeur en euros : "; 
my $euro = <STDIN>; 
chomp $euro; 
my $franc = $euro * $taux; 
printf "%.3f euros vaut %.3f francs.\n", $euro, $franc;

1
2
Rentrez une valeur en euros : 12.2 
12.200 euros vaut 80.027 francs.