列のテキストの解析

Perlが構造に来ます：

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

• -n入力した内容を1行ずつ読み、各行のコードを実行します。
• -a各入力行をスペースの @F 配列に分割します。
• $ c3と$ c4は、3列と4列の古い値を保持するために使用され、実際の値は$ F [2]と$ F [3]（0から始まるインデックス配列）に格納されます。
• $previousは印刷する必要がある場合に備えて前の行を保存します。
• $printedは、最後の行が2回印刷されるのを防ぎます（3番目と4番目の列が前の行と異なる場合に発生します）。