Uso de impresión en Perl

“Existen muchas opciones en Perl para imprimir diferentes tipos de valores y variables. El operador de impresión es uno de ellos. Imprime el valor que se le pasa como argumento. La cita doble ("") se usa con el operador de impresión para imprimir cualquier dato. Se puede usar para imprimir valores de cadena, una o más variables, escribir en el contenido del archivo o leer desde el archivo. Los usos de este operador de salida en Perl se han mostrado en este tutorial."

Sintaxis

A continuación se dan diferentes sintaxis del operador de impresión.

1. Imprimir string_value
   El operador de impresión se puede usar para imprimir cualquier valor de cadena usando cotizaciones únicas o quotas dobles.
2. Imprimir variable_1, variable_2, ..., variable_n
   El operador de impresión se puede usar para imprimir los valores de una o más variables con o sin otros valores de cadena.
3. Imprimir cadena File_Handler
   El operador de impresión se puede usar para leer desde el archivo o escribir en el archivo.

Valor de retorno

Esta función devuelve 0 en la falla y 1 en el éxito.

Se han mostrado diferentes usos del operador de impresión en Perl en la siguiente parte de este tutorial.

Ejemplo-1: Imprima mensajes simples

Cree un archivo Perl con el siguiente código que imprima dos mensajes de texto simples con la nueva línea. El primer operador de impresión se usa para imprimir el texto utilizando cotizaciones dobles. El segundo operador de impresión se usa para imprimir el texto utilizando cotizaciones únicas.

# Imprima un mensaje usando cotizaciones dobles ("")
imprimir ("Bienvenido a Linuxhint \ n");
# Imprima un mensaje usando cotizaciones individuales (")
imprimir ('Learn Perl Programming', "\ n");

Producción:

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-2: imprima múltiples valores de cadena

Cree un archivo Perl con el siguiente código para imprimir múltiples valores de cadena usando Coma (,) con un operador de impresión y utilizando Backward Slash (\) con dos operadores de impresión.

# Imprime múltiples valores de cadena usando separador
Imprimir ("Bienvenido a Linuxhint."," "," Aprenda la programación de Perl de Linuxhint."," \ n ");
# Imprimir múltiples cadenas usando dos funciones impresas ()
Imprimir ("Bienvenido a Linuxhint."); \
Imprimir ("Aprenda Programación de Perl de Linuxhint."," \ n ");

Producción:

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-3: imprima una o más variables

Se pueden imprimir una o más variables utilizando el operador de impresión con las cotizaciones dobles ("). Cree un archivo Perl con el siguiente código que imprima una sola variable, dos variables y las variables con otros valores de cadena. Se ha imprimido una sola variable utilizando cotizaciones dobles (") con el operador de impresión. Se han impreso dos variables de cadena sin usar cotizaciones con el operador de impresión. Se han imprimido una cadena y un valor numérico con otros valores de cadena utilizando el operador de impresión. Aquí, Backshash (\) ha estado con el "$" para imprimir "$" en la salida porque este símbolo se usa para declarar la variable en Perl.

# Defina una variable de cadena
$ String1 = 'Hello';
# Imprima la variable
imprimir "$ String1 \ n";
# Defina otra variable de cadena
$ String2 = 'World';
# Imprimir dos variables de cadena
imprimir $ string1, $ string2, "\ n";
# Defina otro valor de cadena
$ book_name = "Programación perl";
# Definir un valor numérico
$ precio = 35;
# Imprima las variables con otras cadenas usando coma (,)
Imprima "El precio de", $ book_name, "El libro es \ $", $ precio ",.\norte";
# Imprima las variables con otras cadenas usando DOT (.)
Imprimir "El precio de".$ book_name."El libro es \ $".$ precio.".\norte";

Producción:

La siguiente salida aparecerá después de ejecutar el código anterior.

Ejemplo-4: imprima el cálculo aritmético

El resultado de cualquier cálculo aritmético se puede imprimir directamente utilizando el operador de impresión. Cree un archivo Perl con el siguiente código que imprima la multiplicación de dos variables numéricas e imprima el resultado de una expresión aritmética.

# Definir dos valores numéricos
$ N1 = 45;
$ n2 = 5;
# Imprima el resultado de multiplicación de las variables
imprimir "El resultado de la multiplicación es".$ n1*$ n2."\norte";
# Imprima el resultado calculado de la expresión matemática
imprima "el resultado de la expresión =", 2+6*7, "\ n";

Producción:

La siguiente salida aparecerá después de ejecutar el código anterior. La multiplicación de dos variables que tienen los valores 45 y 5 es 225. El resultado de la expresión aritmética, 2+6*7, es 44.

Ejemplo-5: escriba en un archivo

Cree un archivo Perl con el siguiente código que abrirá un archivo para escribir y agregar una línea de texto utilizando el operador de impresión. Un archivo de texto llamado temperatura.TXT se ha abierto para escribir usando un abierto función en el código. Si el archivo existía antes, el contenido se sobrescribirá el contenido del archivo. El archivo se cerrará utilizando la función de cierre después de completar la operación de escritura.

# Abra el controlador de archivos para escribir en un archivo
Abrir FH, "> temperatura.TXT"
# Mensaje de error de impresión
o morir "no puede crear el archivo.";
# Escribe el valor de cadena en el archivo
Imprima FH "Agregar texto al archivo \ n";
# Cierre el archivo
Cerrar FH
# Mensaje de error de impresión
o morir "no puede cerrar el archivo.\norte";

Producción:

La siguiente salida aparecerá después de ejecutar el código anterior. El comando "CAT" se ha ejecutado para verificar si el archivo se crea correctamente o no.

Ejemplo-6: lea desde un archivo

Cree un archivo Perl con el siguiente código que abrirá un archivo para leer, iterar el contenido del archivo usando un bucle e imprima cada línea del archivo utilizando el operador de impresión. Un archivo de texto llamado mi archivo.TXT se ha abierto para leer usando el abierto función en el código. Si el archivo no existe, se imprimirá un mensaje de error. El archivo se cerrará utilizando el cerca función después de completar la operación de lectura.

# Abra el controlador de archivos para escribir en un archivo
Abierto FH "< myfile.txt"
# Mensaje de error de impresión
o morir "no puede abrir el archivo.";
# Leer el archivo
mientras()

# Imprimir la línea
imprimir $ _;

# Cierre el archivo
Cerrar FH
# Mensaje de error de impresión
o morir "no puede cerrar el archivo.\norte";

Producción:

La siguiente salida aparecerá después de ejecutar el código anterior. El comando "CAT" se ha ejecutado para verificar el contenido del archivo.

Conclusión

La forma de usar el imprimir Operador en Perl para imprimir valores o variables simples o múltiples, leer desde un archivo y escribir en un archivo se ha mostrado en este tutorial utilizando múltiples ejemplos.