what's an equivalent for the following Perl one-liner?

[Dan Nelson]

In the last episode (Dec 21), Mikhail Teterin said:
> I'd like a sed string, that will remove both the carriage returns and
> the blanks at eol in one go. Perl appears to recognize the \r
> character and DTRT:
> 
> 	perl -p -e 's,[ \r]+$,,' < in > out
> 
> What's the sed's equivalent? Thanks!

sed -E 's,[ ^M]*$,,' < in > out

Note the ^M is a single control-character (entered via Ctrl-V Ctrl-M at
a shell prompt for example).  sed does not parse backslash-escapes
except for \n which represents a newline.

-- 
	Dan Nelson
	dnelson at allantgroup.com