At 20.05.2003 22:50 +0200, Hans Spath wrote:
>At 20.05.2003 22:29 +0200, Hans Spath wrote:
>>grep -xB1000000 -m1 "" $FILE
>cat $FILE | perl -e "while(<>){exit if(/^$/);print}"

perl -e '$/="\n\n";chomp($_=<>);print' $FILE
perl -ne "exit if(/^$/);print"
perl -pe "exit if/^$/"$FILE
perl -pe 'exit if$_ eq"\n"' $FILE

btw. Haris lag mit sed gar nicht so verkehrt

sed '/^$/Q' $FILE

so, jetzt reichts aber :)

Gruß,
Hans