^[A-Z]{1,10}$
Opcje wyraenia regularnego: Brak
Odmiany wyrae regularnych: .NET, Java, JavaScript, PCRE, Perl, Python, Ruby


Perl
if ($ARGV[0] =~ /^[A-Z]{1,10}$/) {
    print "Dane wejciowe s prawidowe.\n";
} else {
    print " Dane wejciowe s nieprawidowe.\n";
}
