[filters.git] / studly

#!/usr/bin/perl

# stUdLy cAPs, after emacs studly.el -- the commented line is just
# to remind diehards how it *should* be done ;)
#
# just for reference, you may do whatever you like with this file.
#
# -- nwp@lemon-computing.com

for (my $offset = 0; defined(my $c = getc); $offset++) {
#    (($c + $offset) % 4) == 2 and print (ord($c) ^ 32) or print($c);
    (($c + $offset) % 4) != 2 and print($c) or $c =~ tr/[A-Za-z]/[a-zA-Z]/, print $c;
}
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	}