¿Cómo puedo resolver este caso de "uso inútil de una variable en un contexto vacío"?¿Cómo puedo resolver este caso de "Uso inútil de una variable en un contexto vacío"?
Por ejemplo:
my $err = $soap_response->code, " ", $soap_response->string, "\n";
return $err;
consigo advertencias como "uso inútil de una variable en un contexto vacío"? ¿Por qué? ¿Cómo puedo resolverlo?
En caso de que quiera para concatenar los argumentos, el uso el operador "." o join:
my $err = $soap_response->code. " ". $soap_response->string. "\n";
my $err = join '', $soap_response->code, " ", $soap_response->string, "\n";
siguiente es la razón por Perl le da advertencias.
Está asignando a una variable escalar $err, y el lado derecho de la asignación se evalúa en contexto escalar.
binario "," es el operador coma. En el contexto escalar, evalúa su argumento de la izquierda en el contexto vacío, descarta ese valor, luego evalúa su argumento correcto en contexto escalar y devuelve ese valor.
Evaluación de una variable o una constante y tirar que el valor de distancia es inútil. Y Perl te advierte sobre esto.
FYI: Otro posible problema con su código:
my $err = $soap_response->code, " ", $soap_response->string, "\n";
La asignación tiene mayor preferencia por lo que es:
(my $err = $soap_response->code), " ", $soap_response->string, "\n";
Ver Perl operators and precedence y la Comma operator para más información.
supongo que quería para concatenar los trozos de cuerda para formar la totalidad del mensaje de error, por lo que tendrá que utilizar el punto en lugar de coma:
my $err = $soap_response->code. " ". $soap_response->string. "\n";
'" $$ soap_response {code} $$ soap_response {string} \ n "' – ephemient
@ephemient: Eso no es en absoluto lo mismo que el código original. Las llamadas a métodos no son búsquedas hash (incluso si el método solo hace una búsqueda hash, podría cambiar en el futuro). – cjm
@cjm Esas no son llamadas de método, pruébalo tú mismo. '$$ _ {key}' es '$ {$ _} {key}' es '$ _-> {key}', excepto que este último es un poco más de trabajo para interpolar en una cadena. 'perl -e '$ _ = {clave => 1}; impresión $$ _ {clave}, $ {} $ _ {clave}, {$ _-> clave} ' '==> 111 – ephemient
my $err = join(' ', $soap_response->code, $soap_response->string) . "\n";
o, mejor IMO:
return sprintf "%s %s\n", $soap_response->code, $soap_response->string;
Ver perldoc -f join y perldoc -f sprintfperldoc perlop.
En cuanto a la advertencia, ver perldoc perlop y this note on the comma operator.
+1 por la versión sprintf, que es la forma correcta de hacer este IMO. – RET
Gran respuesta. Pero "el argumento correcto" es un poco ambiguo. Está asignando el valor incorrecto y no el correcto :).Pruebe, tal vez, 'más a la derecha' o 'final' o 'último' o algo así. – daotoad
Realmente me gustaría esta respuesta si incluyera mención del operador de concatenación como "esto es lo que quería decir". – darch
Esta es una mejor explicación de lo que salió mal, pero codaddict tiene una mejor solución. 'join' es exagerado aquí. Lo que realmente quería era el operador de concatenación, '.'. – cjm