Как проверить на наличие именованного канала в файловой системе [дубликат]

Perl al rescate:

perl -ane '
    if ($F[2] ne $c3 || $F[3] ne $c4) {
        $printed or print $previous;
        $printed = print;
    } else {
        $printed = 0;
    }
    ($c3, $c4, $previous) = (@F[2, 3], $_);
    END { print $previous unless $printed }
' -- input.file
  • -nlee la entrada línea por línea y ejecuta el código para cada línea.
  • -adivide cada línea de entrada en espacios en blanco en la matriz @F.
  • $c3 y $c4 se usan para mantener los valores anteriores de las columnas 3 y 4, los valores reales se almacenan en $F[2] y $F[3] (Las matrices se indexan desde 0 ).
  • $anterior almacena la línea anterior en caso de que necesitemos imprimirla.
  • $printed solo evita que se imprima la última línea dos veces (, lo que sucedería si sus columnas 3 y 4 son diferentes a la línea anterior ).
2
04.06.2019, 21:38
0 ответов

Теги

Похожие вопросы