Mercurial > repo
changeset 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 | 7772abd39df2 |
| files | bin/добро-пожаловать |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
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"; }