Заставить ssh использовать только пароль [дубликат]

Este problema se puede abordar con Perl de esta manera.

Código

perl -F'/^=+$/m' -lan -0777e '
   my($dashes) = /^(=+)$/m;
   shift @F; pop @F;
   while ( @F > 1 ) {
      my($h, $s) = splice @F, 0, 2;
      next if $s =~ /^(?:\h*\n)+$/;
      print join $dashes, q(), $h, $s, !@F ? q() : ();
   }
' input.txt

Salida

=========================================================================================================
Month: Jun

Counter Name                                06/04 18:00     06/04 17:00     06/04 16:00     06/04 15:00
=========================================================================================================
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45



=========================================================================================================
Month: Jun

Counter Name                                06/05 14:00     06/05 13:00     06/05 12:00     06/05 11:00
=========================================================================================================
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45



=========================================================================================================
Month: Jun

Counter Name                                06/05 06:00     06/05 05:00     06/05 04:00     06/05 03:00
=========================================================================================================
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45



=========================================================================================================
Month: Jun

Counter Name                                06/04 18:00     06/04 17:00     06/04 16:00     06/04 15:00
=========================================================================================================
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45
SYS.SYS.SYS.SYS.SYS.SYS.                  : 45              45              45              45


=========================================================================================================

Explicación

• Sorber la entrada de una sola vez:-0777 opción aPerlhabilita eso.
• Dividir todo este archivo (ahora se trata como una cadena larga )a lo largo de los guiones:/^=+$/m significa que siempre que una línea dada no contenga nada más que iguales repetidos es donde dividiremos el archivo en.
• -una opción hará que perl rellene las partes divididas en la matriz @F .
La opción
• -n de Perl deshabilitará la impresión automática justo antes de leer el siguiente registro Y también haceawk-como un bucle en los registros leídos desde la entrada.
• En primer lugar, almacenamos la línea de guiones de la entrada.
• Tenga en cuenta que la operación de división hará que el primer y el último elemento estén vacíos, por lo tanto, los eliminamos de la matriz @F antes de emprender la tarea principal.
• Configuramos un bucle while que consume 2 elementos(empalme)a la vez de la matriz @F . Primero está el encabezado y segundo la sección. El bucle continúa mientras haya al menos 2 elementos en la matriz.
• El punto clave está en tomar la decisión de omitir o no el procesamiento del dúo encabezado/sección. Y eso se decide cuando la sección comprende solo líneas vacías o líneas que comprenden solo espacios en blanco horizontales(\h). La expresión regular para eso es /^ (? :\h *\n )+$/
• Ahora, si la sección no está vacía, queda la tarea de unir el dúo encabezado/sección con los guiones. Tenemos en cuenta que en el último encabezado/sección que se une, debemos agregar los guiones para redondear.