Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: Caesar Cipher

by marinersk (Priest)
on Aug 05, 2013 at 15:58 UTC ( #1047926=note: print w/replies, xml ) Need Help??

in reply to Caesar Cipher

The tr approach is probably the most Perl-True approach for a one-off script to perform the cipher with a given (i.e., hard coded) shift.

However, since this smells like like a homework assignment, and you are new to Perl, I would be inclined to suggest something a little more generic -- use an array.

It would be slower, but since you would be building the underlying mechanisms, you would understand its workings more thoroughly.

I know you are essentially asking for theoretical guidance, but have you done any work on this so far? Like, for example, the code which collects the text to be so ciphered?

For example -- intentionally silly:

#!/usr/bin/perl use strict; { foreach my $inputString (@inputArray) { my $cipheredText = &ceaser_cipher($inputString); print "'$inputString' becomes '$cipheredText'\n"; } } exit; sub cipheredText { my ($rawText, @otherParameters) = @_; # The magic happens here -- have entered a SoPW request at PerlMo +nks. } __END__

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1047926]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2018-04-23 17:57 GMT
Find Nodes?
    Voting Booth?