Re: Please, help understanding y/// transliteration in this example (DON'T TRY)

I think this is a pretty dangerous one liner!

You should edit your post and strip at least the dangerous part from it, before someone tries to execute it.

Regarding your question, B::Deparse shows the transliteration as (indentation and linebreaks added for clarity)

tr
     ( -/:-@[-`{-})
     [`-{/" \-]
;
[download]

tr allows to define ranges with - , even outside alphabetic characters, such that you can translate

like `-{ in the "to" part becoming the alphabet

  DB<11> print chr($_),"" for ord('`')..ord('{')
`abcdefghijklmnopqrstuvwxyz{
[download]

flattening the "from" part

  DB<16> print chr($_) for map {ord($_->[0])..ord($_->[1])} [' ','/'],
+ [qw(: @)],[qw([ `)],[qw({ })]
 !"#$%&'()*+,-./:;<=>?@[\]^_`{|}
[download]

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery
FootballPerl is like chess, only without the dice}

Comment on Re: Please, help understanding y/// transliteration in this example (DON'T TRY) Select or Download Code

Replies are listed 'Best First'.
Re^2: Please, help understanding y/// transliteration in this example (DON'T TRY) by igoryonya (Pilgrim) on Feb 05, 2020 at 02:12 UTC
so, ' -/' ':-@' '[-`' [download] and `'{-}'` [download] are ranges? and in the replacement string: '`-{' [download] is a range? I didn't know, you could use ranges in y///, I thought, y/// can have only 1 to 1 mappings, but it's pretty cool, that you can.	[reply] [d/l] [select]
Re^3: Please, help understanding y/// transliteration in this example (DON'T TRY) by LanX (Saint) on Feb 05, 2020 at 02:14 UTC
yes! see my updates, it demonstrates how `=` becomes an `s` and `]` becomes `y` ... etc just compare vertically. PS: Thanks for updating. :) Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery FootballPerl is like chess, only without the dice}	[reply] [d/l] [select]