Foro - Perl en Español

¡ Hola a Todos !

Recién empiezo a ver la función fork y me surge una gran duda: ¿Por qué fork() se le pasa a una variable escalar?

Es decir, en el siguiente conjunto de instrucciones:


No logro entender el porqué de la primera línea y tampoco logro comprender la construcción if($pid), que quiere decir realmente, si el valor de PID es 0 o no es 0.

Adjunto a esta pregunta que soy principiante y dado que yo a mi lógica lo que haría en el if() sería poner una condición tal como if($pid != 0 ), entonces en el ejemplo anterior la condición no está explícitamente escrita pero entonces, ¿qué significa?

Muchas gracias y adjunto al tema que recién empiezo por si digo alguna barbarie

Bienvenido a los foros de Perl en Español, ostpulse.

Sacado de perldoc -f fork:

Como ves, la llamada a fork() puede devolver uno de tres valores distintos: el pid, un '0' o un 'undef'.

El hacer el if() permite distinguir el primer caso entre los dos siguientes.

Entonces, quedaría mejor explicado así:

Hola explorer y muchas gracias por la respuesta

El problema que tengo en el if() es que si éste permite entre las tres posibles respuestas del fork(), entiendo que si fork() devuelve un undef, éste será captado por el bloque del else{}, pero ¿cómo distingues la respuesta cuando el fork devuelve un 0 o el pid del proceso?, es decir, si tenemos la sentencia (que normalmente es la que veo escrita cuando se trata del fork):

Mi pregunta reside en cómo con tan solo una condición diferenciamos dos posibles estados, es decir, cómo con tan solo if ( $pid ) diferenciamos si es un 0 o otro valor...

Quizá realmente cuando se desee diferenciar si es un 0 o otro valor se escriba la condición tal como if ( $pid >0 ), pero si la condición no está presente explícitamente, al programador le da igual el valor devuelto. ¿O no?

Perdona que le dé tantas vueltas a la pregunta pero es lo que no pillo

¡Ah!, entiendo.

Cuando en un if() aparece una variable escalar, se dice que se cumple la condición (del if()) si ese escalar contiene algo que se considera que es verdadero (en el sentido booleano).

Para que sea verdadero, se deben cumplir dos condiciones: que el valor almacenado en el escalar esté definido (es decir, que no sea 'undef') y que sea un valor distinto de 0 (o '0', '' y (). Consultar Verdad y Falsedad en perlsyn).

Si no se cumplen esas dos condiciones, se ejecuta el else{}.

Si el $pid contiene el pid del proceso, será un número entero mayor que 0, así que el resultado de la condición será positivo, y se ejecutará la primera parte del if().

Si el $pid contiene un 0, entonces fallará el if() y se ejecutará la parte del else{}. Y lo mismo si contiene un 'undef'.

Entonces, en Perl, escribir

if ($pid) {

es lo mismo que

if (defined($pid) and $pid > 0) {

solo que... es más corto

Muchas gracias, explorer, era justo lo que preguntaba

Thanks !!