in reply to Swapping odd-even characters of BCD hex data

I would probably have used 
(my $final = $start) =~ s/(.)(.)/$2$1/g;

[download]
which has the advantage of displaying a really nice pair.
Caution: Contents may have been coded under pressure.

Replies are listed 'Best First'.
Re^2: Swapping odd-even characters of BCD hex data
by polettix (Vicar) on Apr 28, 2005 at 12:27 UTC
    I wasn't sure to post this little snippet, but I've confirmation that I made well. I had come up with something similar to your solution, but I hadn't realised that the "g" modifier would work so excellently in this case. Your solution is more "general", in that it works for non-hex chars.

    For my particular case, anyway, I'll stick to my solution. I made a bit of benchmarking, and my solution is faster for this particular hex application: 

    #!/usr/bin/perl -w
use strict;
use Benchmark qw(cmpthese);

sub PackUnpack {
    unpack "h*", pack "H*", shift;
    $v; # Thanks Roy!
}
sub SubstRegex {
    (my $v = shift) =~ s/(.)(.)/$2$1/g;
}

my @tests = map { unpack "h*", $_ }
    qw(ciao a tutti quanti 43242 432423423423 kjlf94324 dfas8902342);

cmpthese (-1, {
        PackUnpack => sub { PackUnpack($_) foreach (@tests) },
        SubstRegex => sub { SubstRegex($_) foreach (@tests) },
    }
);
__END__
              Rate SubstRegex PackUnpack
SubstRegex  3079/s         --       -79%
PackUnpack 14463/s       370%         --

    [download]
    This is no surprise, of course - and your solution remains more useful for the general case.

    Update: SubstRegex returns $v as per Roy Johnson's suggestion.

    Flavio (perl -e 'print(scalar(reverse("\nti.xittelop\@oivalf")))')

    Don't fool yourself.
[reply]
[d/l]
[select]

In Section Cool Uses for Perl