Portál AbcLinuxu, 7. prosince 2025 13:17
[ivok@zero ~]$ echo -e "a\nb\nX\na\nc\nX\nd"|\ > perl -ne '$x=0 if /^a$/; print if $x++==2' X X
Tak ne, musí tam asi fakt načítat to okno o X řádcích a tisknout poslední když první splňuje podmínku...
[ivok@zero ~]$ echo -e "a\nb\nX\na\na\nX\nX\nd"|\ >perl -ne 'push @x,$_;print if ($#x == 2) && ($x=shift @x) && ($x =~ /a/)' X X X
BEGIN { n = 2 }
{ if (a[FNR % n]) { print } a[FNR % n] = "" }
/a/ { a[FNR % n] = "OK" }
sed -n '/retazec/,+1p' subor | sed '/retazec/,+0d'
sed -n '/retazec/,+4p' subor | sed '/retazec/,+3d'
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.