Perl - Příklad 7
5. listopadu 1998 xskrivan@fi.muni.cz


Zadání

Napište program, který vyzve uživatele, aby zadal nějaký řetězec tvaru:
anbm, kde n,m >=0
a program napíše hlášení, zda-li byl zadán řetězec odpovídajícího tvaru. (Výše uvedený zápis znamená, že zadané slovo je posloupnost libovolného počtu áček, následované libovolným počtem béček)

Řešení

 #!/usr/bin/perl
 
 print "Zadej nějaký řetězec \n";
 $retezec = <STDIN>;

 print "Zadaný řetězec byl požadovaného tvaru \n" if ($retezec =~ /a*b*/);
 print "Zadaný řetězec není požadovaného tvaru \n" unless ($retezec =~ /a*b*/);




[Zpět] [Změna kódování] [Domovská stránka]  [Stromeček]