Help! A quick Perl question...

[csiro]

I'm just starting to learn Perl and I couldn't figure how to do this.

I need to parse strings such as these from a text file..

~ # rf: 0x7E 0x23 0x21 0x20 0x7E

I just need the Hex values without the 0x put into an array so the line above should be

7E 23 21 20 7E.

I've tried doing something like @frame = split (/[^\d^A-F]+/, $_); but I end up with
something like this

0 7E 0 23 0 21 0 20 0 7E

How do I remove the leading zeroes??

😕

 

[csiro]

bump.

Someone have to know this.

 

[blackdogdeek]

why not just split on [space]0x ?

like:

@array = split / 0x/, $_;

you'll have to remove the first element.

 

[csiro]

I gave that a try but it returned the input.

ie. input = ~ # rf: 0x7E 0x23 0x21 0x20 0x7E
result = ~ # rf: 0x7E 0x23 0x21 0x20 0x7E

Edit: Nevermind. Thanks that works.