Perl: Asir las palabras delimitadas enésima y mestima de cada línea en un archivo

Question

Debido a la forma más tediosa de agregar hosts a ser monitoreados en Nagios (requiere definir un objeto host, a diferencia del programa anterior que solo requería el IP y nombre de host), pensé que sería mejor automatizar esto, y sería un gran momento para aprender Perl, porque todo lo que sé en este momento es C/C++ y Java.

El archivo que he leído desde el siguiente aspecto:

xxx.xxx.xxx.xxx hostname #comments. i.dont. care. about 

Todo lo que quiero son los primeros 2 manojos de caracteres. Obviamente, estos están delimitados por espacios, pero para mayor generalidad, podría ser cualquier cosa. Para hacerlo más general, ¿por qué no el primero y el tercero, o el cuarto y el décimo? Seguramente debe haber alguna acción de expresión regular involucrada, pero dejaré esa etiqueta por el momento, por las dudas.

Answer 1

El trazador de líneas único es excelente, si no está escribiendo más Perl para manejar el resultado.

En términos más generales, sin embargo, en el contexto de un programa Perl grande, que sería ya sea escribir una expresión personalizada regular, por ejemplo:

if($line =~ m/(\S+)\s+(\S+)/) { 
    $ip = $1; 
    $hostname = $2; 
} 

... o lo haría con el dividir operador.

my @arr = split(/ /, $line); 
$ip = $arr[0]; 
$hostname = $arr[1]; 

De cualquier manera, agregue la lógica para comprobar la entrada no válida.

Answer 2

Un simple de una sola línea es

perl -nae 'print "$F[0] $F[1]\n";' 

puede cambiar el delimitador con -F

Answer 3

Vamos a convertir esto en campo de código! Sobre la base de una excelente respuesta de David, aquí está la mía:

perl -ane 'print "@F[0,1]\n";' 

Editar: Una presentación de golf real, se vería de la misma familia (afeitado de cinco golpes):

perl -ape '$_="@F[0,1] 
"' 

pero eso es menos legible para los propósitos de esta pregunta. :-P

Answer 4

David Nehme dijo:

perl -nae 'print "$F[0] $F[1}\n"; 

que utiliza el interruptor -a. Tuve que buscarlo:

-a turns on autosplit mode when used with a -n or -p. An implicit split 
    command to the @F array is done as the first thing inside the implicit 
    while loop produced by the -n or -p. 

aprendes algo todos los días. -n hace que cada línea que se pasa a

LINE: 
    while (<>) { 
     ...    # your program goes here 
    } 

Y finalmente -e es una manera de entrar directamente en una sola línea de un programa. Puede tener más de -e. La mayoría de esto fue una copia de la página del manual perlrun(1).

Answer 5

Aquí hay una solución general (si nos alejamos un poco del código de golf).

#!/usr/bin/perl -n 
chop;      # strip newline (in case next line doesn't strip it) 
s/#.*//;     # strip comments 
next unless /\S/;   # don't process line if it has nothing (left) 
@fields = (split)[0,1]; # split line, and get wanted fields 
print join(' ', @fields), "\n"; 

Normalmente split splits de whitespace. Si eso no es lo que quiere (por ejemplo, el análisis /etc/passwd), se puede pasar un delimitador como una expresión regular:

@fields = (split /:/)[0,2,4..6]; 

Por supuesto, si estás analizar archivos delimitados por dos puntos, lo más probable también es muy posible que este tipo de archivos Don No tienes comentarios y no tienes que despojarlos.

Answer 6

Desde que Ray me preguntó, pensé en reescribir todo mi programa sin utilizar la implícita de Perl (excepto el uso de <ARGV>; eso es difícil de escribir a mano). Esto probablemente hará que la gente más feliz del pitón (frenos a pesar :-P):

while (my $line = <ARGV>) { 
    chop $line; 
    $line =~ s/#.*//; 
    next unless $line =~ /\S/; 
    @fields = (split ' ', $line)[0,1]; 
    print join(' ', @fields), "\n"; 
} 

¿Hay algo que perder? Ojalá no. El identificador de archivo ARGV es especial. Hace que se lea cada archivo con nombre en la línea de comando, a menos que no se especifique ninguno, en cuyo caso lee la entrada estándar.

Editar: Oh, lo olvidé. split ' ' es mágico también, a diferencia de split//. Este último solo coincide con un espacio. El primero coincide con cualquier cantidad de espacios en blanco. Este comportamiento mágico se usa por defecto si no se especifica ningún patrón para split. (Algunos dirían, pero ¿qué pasa /\s+/? ' ' y /\s+/ son similares, excepto por cómo se trata espacio en blanco al principio de una línea. Así ' ' realmente es mágico.)

La moraleja de la historia es, Perl es genial si te gusta un montón de comportamiento mágico. Si no tiene una barra, use Python. :-P

Answer 7

para encontrar a enésima Mes estilo En Línea Nº L --- Ejemplo de etiqueta para encontrar

---

@echo off 

REM Next line = Set command value to a file OR Just Choose Your File By Skipping The Line 
vol E: > %temp%\justtmp.txt 
REM Vol E: = Find Volume Lable Of Drive E 

REM Next Line to choose line line no. +0 = line no. 1 
for /f "usebackq delims=" %%a in (`more +0 %temp%\justtmp.txt`) DO (set findstringline=%%a& goto :nextstep) 

:nextstep 

REM Next line to read nth to mth Character here 22th Character to 40th Character 
set result=%findstringline:~22,40% 

echo %result% 
pause 
exit /b 

Guardar como encontrar label.cmd

el resultado será su Unidad E Etiqueta

Disfrute