¿Cómo puedo llamar a un módulo en un comando de una sola línea de Perl?

Question

¿Cómo puedo llamar a un módulo en un comando de una sola línea de Perl?

Preguntado el 8 de Abril, 2010: Cuando se hizo la pregunta
5113 visitas: Cuantas visitas ha tenido la pregunta
4 Respuestas: Cuantas respuestas ha tenido la pregunta
Resuelta: Estado actual de la pregunta

Digamos que tengo un archivo de datos que quiero procesar; quiero tomar el valor máximo de cada columna y añadirlo al final de cada línea.

ENTRADA:

T1 T2 T3
35.82 34.67 31.68
32.20 34.52 33.59
37.41 38.64 37.56

SALIDA:

T1 T2 T3
35.82 34.67 31.68 35.82
32.20 34.52 33.59 34.52
37.41 38.64 37.56 38.64

Estoy tratando de implementar esto como una línea de comando. Hasta ahora, esto es lo que he ideado, aunque se queja de que &main::max está indefinido:

perl -MList::Util -ani.bak -e "print qq(@F).q( ).max(@F).qq(\n)" archivo1.txt

Parece que no he cargado el módulo List::Util. ¿Qué está mal? ¿Y el encabezado de la columna es un problema?

~~perlrun no tiene un ejemplo decente de cómo hacer esto~~ (en realidad sí, mi documentación era un poco difícil de leer).

Preguntado el 8 de Abril, 2010 por Zaid

Answer 1

4 Respuestas

Answer 2

23voto

Greg Bacon Puntos 50449

Has cargado List::Util, pero el módulo no exporta símbolos por defecto. Salta la línea de encabezado comprobando si $. es 1.

$ perl -MList::Util=max -ape 's/$/" " . max(@F)/e unless $.==1' input 
T1 T2 T3
35.82 34.67 31.68 35.82
32.20 34.52 33.59 34.52
37.41 38.64 37.56 38.64

La documentación de perlrun explica:

Un poco de azúcar sintáctica integrada significa que también puedes decir -mmodule=foo,bar o -Mmodule=foo,bar como un atajo para -Mmodule qw(foo bar). Esto evita la necesidad de usar comillas al importar símbolos. El código real generado por -Mmodule=foo,bar es use module split(/,/,q{foo,bar}). Nota que la forma = elimina la distinción entre -m y -M.

Respondido el 8 de Abril, 2010 por Greg Bacon (50449 Puntos )

Answer 3

4voto

draegtun Puntos 17081

perl -M"List::Util 'max'" -ani.bak -e "print qq(@F).q( ).max(@F).qq(\n)" file1.txt

Respondido el 8 de Abril, 2010 por draegtun (17081 Puntos )

Answer 4

2voto

Dave Sherohman Puntos 25122

List::Util se cargó, pero no exporta la función max de forma predeterminada:

perl -MList::Util -ani.bak -e "print qq(@F).q( ).List::Util::max(@F).qq(\n)" file1.txt

Respondido el 8 de Abril, 2010 por Dave Sherohman (25122 Puntos )

Answer 5

1voto

ghostdog74 Puntos 86060

Si Perl no es obligatorio, aquí tienes un comando awk de una sola línea

$ awk '{for(i=1;i<=NF;i++)if($i>t){t=$i};print $0,t;t=0}' archivo
35.82 34.67 31.68 35.82
32.20 34.52 33.59 34.52
37.41 38.64 37.56 38.64

Respondido el 8 de Abril, 2010 por ghostdog74 (86060 Puntos )

¿Cómo puedo llamar a un módulo en un comando de una sola línea de Perl?

ENTRADA:

SALIDA:

Respuestas

Preguntas Destacadas

Etiquetas mas usadas

Iteramos.com

Powered by:

¿Cómo puedo llamar a un módulo en un comando de una sola línea de Perl?

ENTRADA:

SALIDA:

Respuestas

Preguntas relacionadas

Preguntas Destacadas

Etiquetas mas usadas

En nuestra red

Iteramos.com

Powered by: