- or download this
# https://www.perlmonks.org/index.pl?node=equal+treatment
system 'clear';
...
elsif (/3/) { print "Bye"; exit }
else { print "Try again." }
}
- or download this
# https://news.ycombinator.com/item?id=20127987
import os
...
exit()
else:
print "Try again."
- or download this
# https://news.ycombinator.com/item?id=20123365
clear
...
echo "Try again."
fi
done
- or download this
REM https://news.ycombinator.com/item?id=20118639
5 CLS
...
310 IF RND>.5 THEN PRINT "/"; ELSE PRINT "\";
320 GOTO 310
400 PRINT "Bye."
- or download this
use Inline Python => <<'END';
# paste the py code here and run under perl! =)
END