in reply to Caesar Shift
#!/usr/bin/perl -w use strict; chomp(my $cypher = <STDIN>); $cypher = lc($cypher); $cypher =~ tr/a-z/n-za-m/; print "ROT: $cypher\n";
Untested.
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Caesar Shift
by Aristotle (Chancellor) on Aug 25, 2004 at 14:31 UTC |
In Section
Cool Uses for Perl