#! /usr/bin/gawk -f # MUSI być gawk, bo jako RS podaję wyrażenie regularne! BEGIN{ RS="\n[ \t]*(\n[ \t]*)+" } NF==0{ next } { ol=$1 for (k=2;k<=NF;k++) { if ((length(ol)+length($k)+1)>60) { print ol ol=$k continue }else{ ol=(ol " " $k) } } print (ol "\n") }