in reply to what is the translation?
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"
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: what is the translation?
by jwkrahn (Abbot) on Jul 20, 2011 at 06:48 UTC | |
|
Re^2: what is the translation?
by roadtest (Sexton) on Jul 20, 2011 at 13:20 UTC | |
by MidLifeXis (Monsignor) on Jul 20, 2011 at 13:33 UTC |