Also assuming that the hex number is terminated by a non-word ([^a-zA-Z0-9_]) character.my $data = join '', <DATA>; if($data =~ /(0x\w+)/) { print "$1\n"; } __DATA__ 1:05:02.599,xx:MTV = 0x2f7c:COOL_CALL, an option = 11
In reply to Re: Parsing of a string
by saintmike
in thread Parsing of a string
by Aaryan
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |