]>
Commit | Line | Data |
---|---|---|
9edc0e61 | 1 | #!/usr/bin/perl |
2 | ||
3 | # stUdLy cAPs, after emacs studly.el -- the commented line is just | |
4 | # to remind diehards how it *should* be done ;) | |
5 | # | |
6 | # just for reference, you may do whatever you like with this file. | |
7 | # | |
8 | # -- nwp@lemon-computing.com | |
9 | ||
10 | for (my $offset = 0; defined(my $c = getc); $offset++) { | |
11 | # (($c + $offset) % 4) == 2 and print (ord($c) ^ 32) or print($c); | |
12 | (($c + $offset) % 4) != 2 and print($c) or $c =~ tr/[A-Za-z]/[a-zA-Z]/, print $c; | |
13 | } |