Mercurial > repo
view testfile @ 11501:fcf1d2869d2f 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 or die; print $O $_; print substr$_,201;
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Fri, 13 Apr 2018 15:13:03 +0100 |
parents | b2b7daed0c2a |
children |