female_mode

 ( sztupi | 2012. március 22., csütörtök - 17:53 )

Ennek a programozonak volt humorerzeke !:-)
> A F*EX kodban talaltam ...
>
> sub female_mode {
> local $_;
> if (open my $tty,'/dev/tty') {
> print "@_\n";
> print " [y] yes\n",
> " [n] no\n",
> " [p] perhaps - don't know\n",
> "your choice: ";
> $_ = <$tty> || '';
> close $tty;
> if (/^y/i) { return }
> if (/^n/i) { exit }
> if (/^p/i) { int(rand(2)) ? return : exit }
> female_mode(@_);
> }
> }