expresión foreach conciso en una línea

Question

En Perl, a menudo se puede evitar el uso de bloques de control, así:

print "$_\n" foreach(@files); 

en lugar de:

foreach(@files){ 
    print "$_\n"; 
} 

¿Cómo funciona esto sintaxis en la siguiente, más caso complejo:

die("Not a file: $_") unless -f $_ foreach(@files); 

Me da un error de sintaxis. No estoy tratando de escribir código ofuscado, es solo una parte sin importancia en el programa, por lo que quiero expresarlo de la manera más concisa posible.

RESPUESTAS resumirse así:

que sólo puede aceptar una respuesta como la respuesta aceptada, pero me gusta los siguientes los de Chris y Jon mejor.

Ésta utiliza foreach como era mi intención, pero sin la syntax error:

-f or die "Not a file: $_" foreach @files; 

y el siguiente es al menos tan buena. Me gusta que die se encuentra al principio de la declaración, porque eso es lo que la atención del lector debe dirigirse a:

die("Not a file: $_") for grep {!-f} @files; 

Answer 1

sólo para estar Perlish (TMTOWTDI) se puede usar la lógica cortocircuitos:

-f or die "Not a file: $_" foreach @files; 

Probado en OS X y obras.

Como nota al margen, -f or die se parece a una gran cantidad de construcciones comunes open() or die que veo en Perl, y aún (I) que muestra la intención de la línea (a die bajo ciertas condiciones).

Answer 2

Bueno, no puede haber intención escribir código ofuscado, pero yo diría que 'Ciertamente tratando a.

¿Serían tan malas dos líneas (o incluso un bloque en una línea, como sugiere Brent.Longborough) en lugar de una? Honestamente, esta es la razón por la que generalmente odio intentar depurar/editar el código perl de otras personas, un gran número de personas que escriben en perl parecen estar obsesionadas con hacer casi todo de la manera más "inteligente" posible, en lugar de hacerlo de una manera que sea fácil de entender para otra persona leyendo.

Answer 3

Si no está tratando de escribir un código ofuscado, entonces no intente escribirlo así. Está tomando algo que debería ser simple y dificultar su comprensión.

Answer 4

Usted podría utilizar @ respuesta de Brent.Longborough, o si realmente quiere postfix, hacer:

do { die("Not a file: $_") unless -f $_ } foreach(@files); 

Sin embargo, estoy de acuerdo con los otros, simplemente porque se trata de "una parte poco importante" no significa que conciso es mejor. La legibilidad cuenta.

Answer 5

Si la prueba de error es el punto principal de este código, podría tener sentido que tenga la ubicación principal al principio de la línea. Una ligera mejora sería utilizar grep:

die("Not a file: $_") for grep {!-f} @files; 

Pero si piensa en bucle a través de los archivos por alguna otra razón en esa parte del código, que sería mejor para agregarlo al cuerpo del bucle.

Answer 6

Maldita sea, Jon acaba de vencerme al grep.

Pero tengo una pregunta más importante: ¿cómo no es importante si realmente va a rescatar si encuentra algunos archivos que no son de su matriz? (A diferencia de, por ejemplo, eliminar esos elementos, advertir al usuario y luego procesar el resto de la lista.) Creo que matar a todo el shebang es una parte razonablemente importante del programa.

En cualquier caso, no puede hacer exactamente lo que quiere con los modificadores de postfix ya que solo puede tener una cosa en cada lado de ellos. Por lo tanto, no puede tener el unless y el foreach. Desde la parte superior del bit correspondiente de perldoc perlsyn:

Cualquier declaración simple opcionalmente puede estar seguido de un modificador SOLA, justo antes del punto y coma de terminación (o bloque final).

Answer 7

Estás muerto.

Your maintenance programmer http://www.codinghorror.com/blog/images/carny.jpg

espero que nunca te encuentra. Pero debe think about him whenever you code.

Answer 8

Estás pensando demasiado. Aquí está en una línea sin acrobacias:

foreach (@files) { die("Not a file!") unless -f } 

Es posible jugar con las cosas dentro del bloque al golf hacia abajo, pero la eliminación de los parens y los apoyos no le está ayudando a cualquiera, y es probablemente va confundir al próximo programador que tiene que mirarlo.

Sin embargo, probablemente tenga algo más complicado, y esto es solo un ejemplo. En el mundo real, es incluso más fácil:

not_a_file_die_die_die(\@files); 

Luego mueve todo el material complicado a una subrutina. El verdadero truco es hacer que la idea y intent sea concisa, no el código que implementa la idea. La mecánica realmente no importa en muchos casos; te importa más el resultado En esos casos, no te preocupes por la mecánica.