Mercurial > repo
diff bin/добро-пожаловать @ 11563:f89272f6a69d draft
<oerjan> ` cd bin; cp welcome \xd0\xb4\xd0\xbe\xd0\xb1\xd1\x80\xd0\xbe-\xd0\xbf\xd0\xbe\xd0\xb6\xd0\xb0\xd0\xbb\xd0\xbe\xd0\xb2\xd0\xb0\xd1\x82\xd1\x8c; sled \xd0\xb4\xd0\xbe\xd0\xb1\xd1\x80\xd0\xbe-\xd0\xbf\xd0\xbe\xd0\xb6\xd0\xb0\xd0\xbb\xd0\xbe\xd0\xb2\xd0\xb0\xd1\x82\xd1\x8c//s,welcome,welcome.ru,g
author | HackEso <hackeso@esolangs.org> |
---|---|
date | Wed, 16 May 2018 04:46:39 +0100 |
parents | 6b0304dcec5c |
children | ef5ba4348bf2 |
line wrap: on
line diff
--- a/bin/добро-пожаловать Wed May 16 04:46:17 2018 +0100 +++ b/bin/добро-пожаловать Wed May 16 04:46:39 2018 +0100 @@ -1,2 +1,2 @@ #!/usr/bin/perl -w -if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.ru"; } else { exec "bin/?", "welcome"; } +if (defined($_=shift)) { s/ *$//; s/ +/ @ /g; exec "bin/@", $_ . " ? welcome.ru"; } else { exec "bin/?", "welcome.ru"; }