Re^2: convert string of chars and numerics to a numeric value

John,

Thanks. That's more or less what I was after. In the line below, could you explain how ord for split m{} works please? I haven't seen that syntax before. Very cool though!

$numStr .= sprintf q{%03d}, ord for split m{}, $str;
[download]

Comment on Re^2: convert string of chars and numerics to a numeric value Download Code

Replies are listed 'Best First'.
Re^3: convert string of chars and numerics to a numeric value by johngg (Canon) on Apr 20, 2007 at 13:21 UTC
I'm glad my guess was along the right lines. Perhaps if I expand the code it will become clearer what is going on. The main points are: `split` will break a string into individual characters if given an empty pattern as it's delimiter; `ord` is one of those built-ins that operates by default on `$_`; I am using the `for` (synonym for `foreach`) as a statement modifier rather than writing an explicit loop. So, in English, concatenate `$newStr` with the ordinal value, formatted to three digits with leading-zero padding, of each character in the string. These characters are passed one at a time in the variable `$_` to the `.=` statement by the `for` statement modifier from the list that results from the `split` statement. Here's the code expanded and using temporary variables. `foreach my $char ( split m{}, $str ) { my $ordVal = ord $char; my $fixedWidthOrdVal = sprintf q{%03d}, $ordVal; $numStr .= $fixedWidthOrdVal; }` [download] I hope that has explained the code satisfactorily but, if not, please ask. Cheers, JohnGG	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^3: convert string of chars and numerics to a numeric value
by johngg (Canon) on Apr 20, 2007 at 13:21 UTC

split

ord

$_

for

foreach

$newStr

$_

.=

for

split

Here's the code expanded and using temporary variables.

foreach my $char ( split m{}, $str )
{
    my $ordVal = ord $char;
    my $fixedWidthOrdVal = sprintf q{%03d}, $ordVal;
    $numStr .= $fixedWidthOrdVal;
}
[download]

I hope that has explained the code satisfactorily but, if not, please ask.

Cheers,

JohnGG

[reply]
[d/l]
[select]