#! /local/bin/perl -s
#
# rsort		--- sort a file of records
#
# Each record is separated by a blank line.
#
# Author: Oscar Nierstrasz (9/10/88)
# Re-written in perl 3.7.93 (4x speedup)
#
# $usg = "Usage : rsort [-r(everse)] [<file> ...]\n";

# blank line separates records
$/ = "";

if ($r) { print sort({$b cmp $a} @input=<>); }
else { print sort(@input=<>); }