perl/lib/Nasm/Utils.pm

   1 =head1 NAME
   2
   3 Nasm::Utils
   4
   5 =head1 DESCRIPTION
   6
   7 Several utilities used in other modules
   8
   9 =head1 Subroutines
  10
  11 =cut
  12
  13 package Nasm::Utils;
  14 use strict;
  15 use warnings;
  16
  17 use base 'Exporter';
  18
  19 our @EXPORT_OK = qw{
  20   str2hex
  21   addprefix
  22 };
  23
  24 =head2 str2hex
  25
  26 Turn a numeric list into a hex string
  27
  28 =cut
  29 sub str2hex{
  30   my @return = map {sprintf("%02X", $_)} @_;
  31
  32   return @return if wantarray;
  33   return join '', @return;
  34 }
  35
  36 =head2 addprefix( $prefix, @list )
  37
  38 Takes a prefix, and a list of strings, and
  39 adds the prefix to each element in the list
  40
  41 =cut
  42 sub addprefix{
  43   my ($prefix, @list) = @_;
  44   my @return = map {
  45       sprintf("%s%02X", $prefix, $_)
  46   } @list;
  47
  48   return @return if wantarray;
  49   die "Don't know what to do in scalar context.";
  50 }
  51
  52 1;