Perl - Escalares
Un escalar es una sola unidad de datos. Esos datos pueden ser un número entero, un punto flotante, un carácter, una cadena, un párrafo o una página web completa.
Aquí hay un ejemplo simple de uso de variables escalares:
#!/usr/bin/perl
$age = 25; # An integer assignment
$name = "John Paul"; # A string
$salary = 1445.50; # A floating point
print "Age = $age\n";
print "Name = $name\n";
print "Salary = $salary\n";
Esto producirá el siguiente resultado:
Age = 25
Name = John Paul
Salary = 1445.5
Escalares numéricos
Un escalar suele ser un número o una cadena. El siguiente ejemplo demuestra el uso de varios tipos de escalares numéricos:
#!/usr/bin/perl
$integer = 200;
$negative = -300;
$floating = 200.340;
$bigfloat = -1.2E-23;
# 377 octal, same as 255 decimal
$octal = 0377;
# FF hex, also 255 decimal
$hexa = 0xff;
print "integer = $integer\n";
print "negative = $negative\n";
print "floating = $floating\n";
print "bigfloat = $bigfloat\n";
print "octal = $octal\n";
print "hexa = $hexa\n";
Esto producirá el siguiente resultado:
integer = 200
negative = -300
floating = 200.34
bigfloat = -1.2e-23
octal = 255
hexa = 255
Escalares de cuerda
El siguiente ejemplo demuestra el uso de varios tipos de escalares de cadena. Observe la diferencia entre las cadenas entre comillas simples y las cadenas entre comillas dobles:
#!/usr/bin/perl
$var = "This is string scalar!";
$quote = 'I m inside single quote - $var';
$double = "This is inside single quote - $var";
$escape = "This example of escape -\tHello, World!";
print "var = $var\n";
print "quote = $quote\n";
print "double = $double\n";
print "escape = $escape\n";
Esto producirá el siguiente resultado:
var = This is string scalar!
quote = I m inside single quote - $var
double = This is inside single quote - This is string scalar!
escape = This example of escape - Hello, World
Operaciones escalares
Verá un detalle de varios operadores disponibles en Perl en un capítulo separado, pero aquí vamos a enumerar algunas operaciones numéricas y de cadena.
#!/usr/bin/perl
$str = "hello" . "world"; # Concatenates strings.
$num = 5 + 10; # adds two numbers.
$mul = 4 * 5; # multiplies two numbers.
$mix = $str . $num; # concatenates string and number.
print "str = $str\n";
print "num = $num\n";
print "mul = $mul\n";
print "mix = $mix\n";
Esto producirá el siguiente resultado:
str = helloworld
num = 15
mul = 20
mix = helloworld15
Cuerdas multilínea
Si desea introducir cadenas de varias líneas en sus programas, puede utilizar las comillas simples estándar como se muestra a continuación:
#!/usr/bin/perl
$string = 'This is
a multiline
string';
print "$string\n";
Esto producirá el siguiente resultado:
This is
a multiline
string
También puede utilizar la sintaxis del documento "aquí" para almacenar o imprimir varias líneas como se muestra a continuación:
#!/usr/bin/perl
print <<EOF;
This is
a multiline
string
EOF
Esto también producirá el mismo resultado:
This is
a multiline
string
Cuerdas en V
Un literal de la forma v1.20.300.4000 se analiza como una cadena compuesta de caracteres con los ordinales especificados. Esta forma se conoce como v-strings.
Una v-string proporciona una forma alternativa y más legible de construir cadenas, en lugar de utilizar la forma de interpolación algo menos legible "\ x {1} \ x {14} \ x {12c} \ x {fa0}".
Son cualquier literal que comienza con av y va seguido de uno o más elementos separados por puntos. Por ejemplo
#!/usr/bin/perl
$smile = v9786;
$foo = v102.111.111;
$martin = v77.97.114.116.105.110;
print "smile = $smile\n";
print "foo = $foo\n";
print "martin = $martin\n";
Esto también producirá el mismo resultado:
smile = ☺
foo = foo
martin = Martin
Wide character in print at main.pl line 7.
Literales especiales
Hasta ahora debe tener una idea acerca de los escalares de cuerda y su operación de concatenación e interpolación. Así que déjame contarte acerca de tres literales especiales: __FILE__, __LINE__ y __PACKAGE__ representan el nombre de archivo actual, el número de línea y el nombre del paquete en ese punto de tu programa.
Solo se pueden usar como tokens separados y no se interpolarán en cadenas. Verifique el siguiente ejemplo:
#!/usr/bin/perl
print "File name ". __FILE__ . "\n";
print "Line Number " . __LINE__ ."\n";
print "Package " . __PACKAGE__ ."\n";
# they can not be interpolated
print "__FILE__ __LINE__ __PACKAGE__\n";
Esto producirá el siguiente resultado:
File name hello.pl
Line Number 4
Package main
__FILE__ __LINE__ __PACKAGE__