Pytanko

Thread View: pl.comp.lang.perl

3 messages

[T] Back to Threads [V] Tree View [G] Group Articles

3 total messages Started by Jerzy Orzeszek Mon, 15 Dec 1997 13:23

#830

Author: Jerzy Orzeszek
Date: Mon, 15 Dec 1997 13:23

3 lines
652 bytes

Czy mogę przesłać na tą grupę pytanie o CGI?

Jerzy

Re: Pytanko

#831

Author: Piotr Piatkowski
Date: Mon, 15 Dec 1997 15:50

14 lines
1001 bytes

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;
}

-- 
Piotr Piątkowski, Uczelniane Centrum Informatyki, AGH Krakow, POLAND

Re: Pytanko

#832

Author: Michał Mosiewicz
Date: Mon, 15 Dec 1997 21:55

32 lines
1515 bytes

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

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads