Mercurial > repo
view test2 @ 11499:18e341c2f384 draft
<wob_jonas> perl -e open$I,"<",($f="wisdom/welcome.ru"); local$/; $_=<$I>; s/\xd0\xb4\xd1\x80\xd1\x83\xd0\xb3\xd0\xbe\xd0\xb3\xd0\xbe.*/\xd0\xb4\xd1\x80\xd1\x83\xd0\xb3\xd0\xbe\xd0\xb3\xd0\xbe \xd1\x82\xd0\xb8\xd0\xbf\xd0\xb0 \xd1\x8d\xd0\xb7\xd0\xbe\xd1\x82\xd0\xb5\xd1\x80\xd0\xb8\xd0\xb7\xd0\xbc\xd0\xb0 \xd0\xbf\xd0\xbe\xd0\xbf\xd1\x80\xd0\xbe\xd0\xb1\xd1\x83\xd0\xb9\xd1\x82\xd0\xb5 #esoteric \xd0\xb2 EFnet \xd0\xb8\xd0\xbb\xd0\xb8 DALnet.)/; open $O,">",$f; print $O,$_; print substr$_,201;
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Fri, 13 Apr 2018 15:12:20 +0100 |
parents | f04f06041b47 |
children |