- 1
- 2
- 3
- 4
- 5
- 6
- 7
- 8
- 9
- 10
- 11
- 12
- 13
- 14
#!/usr/bin/perl -w
print "Это писесольная программа. Дать пеке писю? [Y/n]";
$vvod = 1;
$pisya = "Пекацефал писю пососал";
$start = <STDIN>;
while ($start eq "y\n" or "Y\n") {
if ($vvod < 100) {
print "$pisya\n"; $vvod++;
} if ($vvod == 100) {
exit 0; }
}
М-да.
(кстати, любопытно, только сейчас заметил: если я пишу , то подчеркивание получается синим, а если наоборот - , то черным. Firefox.)