convert a string into another string

[bazsi8304]

Hello!

I'd like to convert a string like this in perl:

example :
original string = 333445566
result string = 0x33,0x44,0x55, 0x66

[Rabbit]

I don't know perl so someone else will have to help you with the code but what happened to the third "3"? Why did it get dropped?

[sathishkumar se]

Explain clear about your requirement

[bazsi8304]

I've made a mistake.The 3rd "3" is only a typo.
original string = 33445566
result string = 0x33,0x44,0x55, 0x66

So I need a script in perl which converts a string (with arbitrary length)into a string what I showed in result string.
This has to do the next :

1.create an array
2.insert "0x" before each element of the array and insert ","after each element of the array

[Rabbit]

What do you have so far?

[peoff]

Hi,
Maybe that is what you are looking for:

# data
$original_string = "33445566";

# test
my $result_string = my_convert($original_string);
print $result_string;

# the function for string modification
sub my_convert(){
    my $var = shift;
    my $new_str = "";
    foreach ( $var =~ /.{2}/sg){
        $new_str .= "0x$_,";
    }
    chop($new_str);
    return $new_str;
}

notes:
1. Source string should be divisible by 2, so if you have string something like this "11223" => result will be "0x11,0x22" . As you see "3" is skipped.
2. In your comments you talk about an array, so if you want to work with the array, you can modify code inside "foreach".

[RonB]

$, = ',';
my $str = '3344556';
my @parts;
push @parts, "0x$1" while $str =~ /(..?)/g;

print @parts;