The output is the same as your shell script:#!/usr/bin/perl use strict; use warnings; use Data::Dumper::Concise; my $string = '0x0ddb00b5'; my $rot = rot47($string); print Dumper($rot); sub rot47 { my $str = shift; $str =~ tr/!-~/P-~!-O/; return $str; } exit 0;
"_I_553__3d"
In reply to Re: what is the translation?
by Khen1950fx
in thread what is the translation?
by roadtest
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |