perl, Perl - rextester

perl

#perl 5.22.1

print "Hello World\n";
@cliente1 = ('jonathan','hernandez','infante');
@cliente2 = ('carlos','eduardo','briano');
@clientes = (\@cliente1,\@cliente2);
print $clientes[0][0];

=begin comment if($clientes[0][0]eq'jonathan')
{
print "true";
}
else
{
print "false"
}
=cut

=operators
            igualdad
==        igual a numeros
! =       no igual a
<=>       Comprueba si el valor de dos operandos es igual o no, y devuelve -1, 0 o 1,
          dependiendo de si el argumento de la izquierda es numéricamente menor, igual o mayor que el argumento de la derecha.

comparador de string
lt  es verdadero si la primera cadena es mayor alfabeticamente que la segunda
gt  es verdadero si la segunda cadena es mayor alfabeticamente que la primera
le  es verdadero si la primera cadena es mayor o igual alfabeticamente a la segunda
ge  es verdadero si la segunda cadena es mayor o igual alfabeticamente a la primera
eq  es verdadero si la primera cadena es igual a la segunda
ne  es verdadero si la primera cadena es diferente a la segunda
cmp devueve -1 si la primera cadena es mayor a la segunda
            0 si son iguales
            1 si la segunda cadena es mayor a la primera
& and &&
| or  ||
^ xor
not

. concatenador
x repetidor
.. secuencia
++ incremento
-- decremento
=cut

=funciones
sub Funcion{
if ($_[1] == 1){
print "hola";
}
else{
print "adios";
}
}

Funcion(1,2,3);
=cut


run \| edit \| history \| help	0

Please log in to post a comment.