Perl - P°φklad 8
5. listopadu 1998 xskrivan@fi.muni.cz


Zadßnφ

NapiÜte program, kter² vyzve u₧ivatele, aby zadal n∞jakΘ jmΘno, a program otestuje, zda-li pat°φ mezi jmΘna: Karel, Jan, Petr, Ev₧en, Ji°φ, pokud ne, vypφÜe o tom hlßÜenφ.

╪eÜenφ

 
 #!/usr/bin/perl
 
 print "Zadej jmΘno \n";
 $jmeno = <STDIN>;
 
 $vetrelec = 0; # prom∞nnß vet°elec je zatφm nepravdivß
 
 unless ($jmeno =~ /Karel|Jan|Petr|Ev₧en|Ji°φ/) {
  $vetrelec = 1;
 }

 print "Dostal se sem vet°elec \n" if ($vetrelec);




[Zp∞t] [Zm∞na k≤dovßnφ] [Domovskß strßnka] á[StromeΦek]