codepad
[
create a new paste
]
login
|
about
Language:
C
C++
D
Haskell
Lua
OCaml
PHP
Perl
Plain Text
Python
Ruby
Scheme
Tcl
#!/usr/bin/perl chomp(my $i = <>); #input if($i =~ /[a-z]{1}/i){ #regexp que verifica se eh UMA letra if ($i =~ /[aeiou]/i){ #regexp para vogal print "Vogal\n"; } else { #se eh uma letra e nao eh vogal, entao eh consoante print "Consoante!\n"; } } else { #ops, alguem digitou mais de uma letra ou algo que nao eh letra print "Digite apenas uma letra :)\n"; }
Private
[
?
]
Run code
Submit