in reply to RE: Re: encryption
in thread encryption

Minor change, but now you don't have to define what happens for characters that shouldn't be "decrypted". 
#!/usr/bin/perl -w
use strict;
$_ = "Ohg vg'f ernyyl n irel fvzcyr gnfx...";
my %caesar;
@caesar{'A'..'Z','a'..'z'} =
    ('N'..'Z','A'..'M', 'n'..'z', 'a'..'m');
my $decoded;
$decoded .= $caesar{$_} ? $caesar{$_} : $_ for split //;
print $decoded, "\n";

[download]

Replies are listed 'Best First'.
RE: RE: RE: Re: encryption
by Adam (Vicar) on Nov 07, 2000 at 06:14 UTC 
    #!/usr/bin/perl -w
use strict;
my $line = "Lbh pbhyq rira hfr n gvrq inevnoyr... 3-)";
my %caesar;
@caesar{'A'..'Z','a'..'z',0..9} =
    ('N'..'Z','A'..'M', 'n'..'z', 'a'..'m', 5..9,0..4 );
sub TIESCALAR{bless[pop]} 
sub FETCH{exists $caesar{$_}?$caesar{$_}:$_}
tie my $chars, '', '';

print $chars for split //, $line;

    [download]
    Although I like the use of transpose more.
[reply]
[d/l]

In Section Seekers of Perl Wisdom