🚀 go-pugleaf

Piotr Piatkowski wrote:
> 
> Jerzy Orzeszek <Jerzy.Orzeszek@univcomp.waw.pl> wrote:
> : Czy mogę przesłać na tą grupę pytanie o CGI?
> 
> my $grupa = 'pl.comp.lang.perl        PERL - zastosowania, porady.';
> if( $grupa =~ /CGI/i ) {
>   return 1;
> }
> else {
>   print "Nie, ta grupa nie ma nic wspólnego z CGI!\n";
>   return 0;
> }

Hmmm, zdaje się, że zasugerowałeś pesymistyczny algorytm... Proponuję
wersję optymistyczną, z elementami logiki rozmytej:

#!/usr/bin/perl
my $pytanie = 'A moze to cgi w perlu?';
my $nastroj = rand;

if( ($pytanie =~ /perl/i) && ($nastroj > 0.5) ) {
  print "A moze jednak ktos odpowie... Czasem odpowiadają...\n";
} else {
  print "Eee pewnie nikt nie odpowie...\n";
}

#Michał

-- 
WWW: http://www.lodz.pdi.net/~mimo  tel: Int. Acc. Code + 48 42 148340
add: Michal Mosiewicz  *  Bugaj 66 m.54 *  95-200 Pabianice  *  POLAND