Utilisation de l'impression dans Perl

«De nombreuses options existent dans Perl pour imprimer différents types de valeurs et de variables. L'opérateur d'impression est l'un d'eux. Il imprime la valeur qui y est transmise comme un argument. Le double devis («« ») est utilisé avec l'opérateur d'impression pour imprimer des données. Il peut être utilisé pour imprimer des valeurs de chaîne, une ou plusieurs variables, écrire dans le contenu du fichier ou lire à partir du fichier. Les utilisations de cet opérateur de sortie à Perl ont été montrées dans ce tutoriel."

Syntaxe

Différentes syntaxes de l'opérateur d'impression sont données ci-dessous.

1. Imprimer String_value
   L'opérateur d'impression peut être utilisé pour imprimer n'importe quelle valeur de chaîne à l'aide de quotes uniques ou doubles.
2. Imprimer variable_1, variable_2,…, variable_n
   L'opérateur d'impression peut être utilisé pour imprimer les valeurs d'une ou plusieurs variables avec ou sans autres valeurs de chaîne.
3. Imprimer File_handler String
   L'opérateur d'impression peut être utilisé pour lire dans le fichier ou écrire dans le fichier.

Valeur de retour

Cette fonction renvoie 0 sur l'échec et 1 sur le succès.

Différentes utilisations de l'opérateur d'impression à Perl ont été présentées dans la prochaine partie de ce tutoriel.

Exemple-1: imprimer des messages simples

Créez un fichier Perl avec le code suivant qui imprimera deux messages texte simples avec la nouvelle ligne. Le premier opérateur d'impression est utilisé pour imprimer le texte en utilisant des citations doubles. Le deuxième opérateur d'impression est utilisé pour imprimer le texte en utilisant des devis uniques.

# Imprimez un message en utilisant des citations doubles ("")
print ("Bienvenue à Linuxhint \ n");
# Imprimez un message en utilisant des citations uniques (")
print ('Learn Perl Programming', "\ n");

Sortir:

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-2: imprimer plusieurs valeurs de chaîne

Créez un fichier Perl avec le code suivant pour imprimer plusieurs valeurs de chaîne en utilisant une virgule (,) avec un opérateur d'impression et en utilisant Backward Slash (\) avec deux opérateurs d'impression.

# Imprimer plusieurs valeurs de chaîne à l'aide du séparateur
Print ("Bienvenue à Linuxhint."," "," Apprenez la programmation Perl de Linuxhint."," \ n ");
# Imprimer plusieurs chaînes à l'aide de deux fonctions print ()
Print ("Bienvenue à Linuxhint."); \
Imprimer ("Apprendre la programmation Perl de Linuxhint."," \ n ");

Sortir:

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-3: imprimer une ou plusieurs variables

Une ou plusieurs variables peuvent être imprimées en utilisant l'opérateur d'impression avec les doubles citations («). Créez un fichier perl avec le code suivant qui imprimera une seule variable, deux variables et les variables avec d'autres valeurs de chaîne. Une seule variable a été imprimée en utilisant des citations doubles («) avec l'opérateur d'impression. Deux variables de chaîne ont été imprimées sans utiliser de devis avec l'opérateur d'impression. Une chaîne et une valeur numérique ont été imprimées avec d'autres valeurs de chaîne en utilisant l'opérateur d'impression. Ici, la barre arrière (\) a été avec le «$» pour imprimer «$» dans la sortie car ce symbole est utilisé pour déclarer la variable dans Perl.

# Définir une variable de chaîne
$ string1 = 'bonjour';
# Imprimez la variable
imprimer "$ string1 \ n";
# Définir une autre variable de chaîne
$ string2 = 'world';
# Imprimer deux variables de chaîne
print $ string1, $ string2, "\ n";
# Définir une autre valeur de chaîne
$ book_name = "programmation perl";
# Définir une valeur numérique
$ prix = 35;
# Imprimez les variables avec d'autres chaînes à l'aide de virgule (,)
Imprimez "Le prix de", $ book_name, "livre est \ $", $ prix, ".\ n ";
# Imprimez les variables avec d'autres chaînes en utilisant le point (.)
Imprimez "le prix de".$ book_name."Le livre est \ $".$ Price.".\ n ";

Sortir:

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus.

Exemple-4: Imprimez le calcul arithmétique

Le résultat de tout calcul arithmétique peut être imprimé directement en utilisant l'opérateur d'impression. Créez un fichier Perl avec le code suivant qui imprimera la multiplication de deux variables numériques et imprimera le résultat d'une expression arithmétique.

# Définir deux valeurs numériques
$ n1 = 45;
$ n2 = 5;
# Imprimez le résultat de la multiplication des variables
Imprimer "Le résultat de la multiplication est".$ n1 * $ n2."\ n";
# Imprimez le résultat calculé de l'expression mathématique
Imprimez "le résultat de l'expression =", 2 + 6 * 7, "\ n";

Sortir:

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus. La multiplication de deux variables qui ont les valeurs 45 et 5 est 225. Le résultat de l'expression arithmétique, 2 + 6 * 7, est 44.

Exemple-5: Écrivez dans un fichier

Créez un fichier Perl avec le code suivant qui ouvrira un fichier pour l'écriture et ajoutera une ligne de texte en utilisant l'opérateur d'impression. Un fichier texte nommé temp.SMS a été ouvert pour écrire en utilisant un ouvrir fonction dans le code. Si le fichier existait auparavant, le contenu du fichier sera écrasé par le nouveau contenu. Le fichier sera fermé en utilisant la fonction de fermeture après avoir terminé l'opération d'écriture.

# Ouvrez le gestionnaire de fichiers pour l'écriture dans un fichier
ouvert fh, "> temp.SMS"
# Message d'erreur d'impression
ou mourir "Impossible de créer le fichier."
# Écrivez la valeur de la chaîne dans le fichier
imprimer fh "Ajouter du texte au fichier \ n";
# Fermez le fichier
Fermer FH
# Message d'erreur d'impression
ou mourir "Impossible de fermer le fichier.\ n ";

Sortir:

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus. La commande «Cat» a été exécutée pour vérifier si le fichier est créé correctement ou non.

Exemple-6: Lire à partir d'un fichier

Créez un fichier Perl avec le code suivant qui ouvrira un fichier pour la lecture, itérez le contenu du fichier en utilisant une boucle et imprimera chaque ligne du fichier à l'aide de l'opérateur d'impression. Un fichier texte nommé mon fichier.SMS a été ouvert à la lecture en utilisant le ouvrir fonction dans le code. Si le fichier n'existe pas, un message d'erreur sera imprimé. Le fichier sera fermé en utilisant le fermer fonction après avoir terminé l'opération de lecture.

# Ouvrez le gestionnaire de fichiers pour l'écriture dans un fichier
Ouvert fh, "< myfile.txt"
# Message d'erreur d'impression
ou mourir "Impossible d'ouvrir le fichier."
# Lire le fichier
alors que()

# Imprimez la ligne
imprimer $ _;

# Fermez le fichier
Fermer FH
# Message d'erreur d'impression
ou mourir "Impossible de fermer le fichier.\ n ";

Sortir:

La sortie suivante apparaîtra après avoir exécuté le code ci-dessus. La commande «Cat» a été exécutée pour vérifier le contenu du fichier.

Conclusion

La façon d'utiliser le imprimer L'opérateur de Perl pour imprimer des valeurs ou variables de chaîne uniques ou multiples, la lecture d'un fichier, et l'écriture dans un fichier a été affichée dans ce tutoriel en utilisant plusieurs exemples.