Re^2: Python dict to perl hash

[garg10may]

But I copied that dict from somewhere and need to convert it to hash to work upon it. I cannot have dumper output without the input. So yes you can say in general.

[hdb]

If you need THAT hash, here it is

my %hash = map { chr(65+$_)=>chr(65+($_+13)%26),
         chr(97+$_)=>chr(97+($_+13)%26)} 0..25;

[Anonymous Monk]

But I copied that dict from somewhere ...

It's still unclear to me whether you're talking about only this one dict? Or whether you have a bunch of different dicts that you need to translate to Perl?

The code you showed produces an output: a hash(ref) in Perl's own syntax. Copy that output back into your Perl script, replacing your current hash definition, and you'll have a hash defined in pure Perl.

sub rot13 {
    my %hash = ( a=>"n", b=>"o", c=>"p", ... );
    ...
}