Portál AbcLinuxu, 25. dubna 2024 10:56
[ivok@zero ~]$ echo -e "a\nb\nX\na\nc\nX\nd"|\ > perl -ne '$x=0 if /^a$/; print if $x++==2' X X
[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.