perl -e'while(1) { $p = $ENV{YNPROMPT}; $a = -1; print "$p [YyNn] "; $c = <>; $c = uc
$c; chomp $c; $a = $c; last if $c eq "Y" || $c eq "N"; }; exit $a'
(ÑÐÐÐÐ ÑÐÐÑÑÐ Ð $YNPROMPT)
Teo
============================================================================
A mail-list of Linux Users Group - Bulgaria (bulgarian linuxers).
http://www.linux-bulgaria.org - Hosted by Internet Group Ltd. - Stara Zagora
To unsubscribe: http://www.linux-bulgaria.org/public/mail_list.html
============================================================================
