perl | palabra clave escalar

La palabra clave escalar en Perl se usa para convertir la expresión en contexto escalar. Esta es una evaluación contundente de la expresión al contexto escalar incluso si funciona bien en el contexto de la lista.
 

Sintaxis: escalar expr
Devuelve: un valor escalar

Ejemplo 1: 
 

#!/usr/bin/perl -w
 
# Defining Arrays
@array1 = ("Geeks", "For", "Geeks");
@array2 = (1, 1, 0, 0, 9, 6);
 
# Concatenation of both arrays
@array3 = (@array1, @array2);
 
# Printing the Concatenated Array
# in List form
print "Array in List form: @array3\n";
 
# Conversion of Arrays to scalar context
@array3 = (scalar(@array1), scalar(@array2));
 
# Conversion to scalar returns
# the number of elements in the array
print "Array in scalar form: @array3\n";

Array in List form: Geeks For Geeks 1 1 0 0 9 6
Array in scalar form: 3 6

Ejemplo 2: 
 

#!/usr/bin/perl -w
 
# Defining Arrays
@array1 = ("Welcome", "To", "Geeks");
@array2 = (1, 1, 0, 0, 9, 6);
 
# concatenation of both arrays
@array3 = ( @array1, @array2 );
 
# Printing the Concatenated Array
print "Concatenation of Arrays: @array3\n";
 
# Conversion of Arrays to scalar context to
# Evaluate Difference between size of arrays
@array3 = (scalar(@array2) - scalar(@array1));
 
# Printing the size Difference
print "Difference in number of elements: @array3\n";

Concatenation of Arrays: Welcome To Geeks 1 1 0 0 9 6
Difference in number of elements: 3