12 lines
380 B
Perl
12 lines
380 B
Perl
#!/usr/bin/perl
|
|
|
|
use locale;
|
|
|
|
print "lcase a ± b c æ d e ê f g h i j k l ³ m n ñ o ó p q r s ¶ t u v w x y z ¼ ¿ é ö ü ä\n";
|
|
print "ucase A ¡ B C Æ D E Ê F G H I J K L £ M N Ñ O Ó P Q R S ¦ T U V W X Y Z ¬ ¯\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";
|