12 lines
376 B
Perl
12 lines
376 B
Perl
|
#!/usr/bin/perl
|
|||
|
|
|
|||
|
|
use locale;
|
|||
|
|
|
|||
|
|
print "lcase a <20> b c <20> d e <20> f g h i j k l <20> m n <20> o <20> p q r s <20> t u v w x y z <20> <20> <20> <20> <20> <20>\n";
|
|||
|
|
print "ucase A <20> B C <20> D E <20> F G H I J K L <20> M N <20> O <20> P Q R S <20> T U V W X Y Z <20> <20>\n";
|
|||
|
|
print "letter lcase ucase\n";
|
|||
|
|
print "digit 0 1 2 3 4 5 6 7 8 9\n";
|
|||
|
|
print "signs , . @ \/ \'\n _";
|
|||
|
|
print "sem ~ ; - \\ \n";
|
|||
|
|
print "all letter digit signs sem\n";
|