> so, the translation string becomes:

Here a (Q&D) way to expand a tr expression:

use strict;
use warnings;
use Data::Dump qw/pp dd/;



my $from = q( -/:-@[-`{-});
my $to   = q[`-{/" \-];

my @from = expand($from);
my @to   = expand($to);

my %tr;

@tr{@from} = @to;

pp \%tr;




sub expand {
    my $replace = shift;
    
    my $scale = join '' , 0..9,'a'..'z','A'..'Z';
    my $code  = qq( \$scale =~ tr($scale)($replace)d );
    #pp $code;
    
    eval $code or warn $@;

    return split '', $scale;
}

[download]

--> 

{
  " "  => "`",
  "!"  => "a",
  "\"" => "b",
  "#"  => "c",
  "\$" => "d",
  "%"  => "e",
  "&"  => "f",
  "'"  => "g",
  "("  => "h",
  ")"  => "i",
  "*"  => "j",
  "+"  => "k",
  ","  => "l",
  "-"  => "m",
  "."  => "n",
  "/"  => "o",
  ":"  => "p",
  ";"  => "q",
  "<"  => "r",
  "="  => "s",
  ">"  => "t",
  "?"  => "u",
  "\@" => "v",
  "["  => "w",
  "\\" => "x",
  "]"  => "y",
  "^"  => "z",
  "_"  => "{",
  "`"  => "/",
  "{"  => "\"",
  "|"  => " ",
  "}"  => "-",
}

[download]

DISCLAIMER: Neither complete nor even bullet proof.

Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery FootballPerl is like chess, only without the dice

In reply to Re: Please, help understanding y/// transliteration in this example (expanding transliterations) by LanX
in thread Please, help understanding y/// transliteration in this example (DON'T TRY executing oneliner) by igoryonya

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.