find all numeric values from a string and join them

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi, Im trying to have all numeric values from a sting and join them with pipe string is

EEH_ErrorCode=( 15, /* Component */ 65 /* Error */) and my output should be 15|65

while ($flag == 0 ){  
    if ($str =~ m/\)/ ) { 
    $flag = 1; }
    else{
     
     my @array=split(/' '/,$str);
    if(defined $array[0] ){    $array[0] =~ s/[^0-9]//g}else{$array[0]
+=''};
    if(defined $array[1] ){    $array[1] =~ s/[^0-9]//g}else{$array[1]
+=''};
     }   
 }
[download]

Comment on find all numeric values from a string and join them Download Code

Replies are listed 'Best First'.
Re: find all numeric values from a string and join them by hippo (Archbishop) on May 18, 2018 at 10:10 UTC
SSCCE: `use strict; use warnings; use Test::More tests => 1; my $str = 'EEH_ErrorCode=( 15, /* Component / 65 / Error /)'; my $want = '15\|65'; my $have = join ('\|', $str =~ /(\d+)/ag); is $have, $want;` [download] Meta-update:* I've relocated your post into the correct section of this site: Seekers of Perl Wisdom. See Where should I post X? for a discussion of where to post.	[reply] [d/l]
Re: find all numeric values from a string and join them by AnomalousMonk (Archbishop) on May 18, 2018 at 13:19 UTC
If you ever deal with numbers more complex than unsigned decimal integers, you may be interested in Regexp::Common and Regexp::Common::number. Give a man a fish: `<%-{-{-{-<`	[reply] [d/l]
Re^2: find all numeric values from a string and join them by davido (Cardinal) on May 18, 2018 at 16:09 UTC
"A concept is valid in Perl only if it can be shown to work in one line." `perl -MRegexp::Common -E 'my $string = "EEH_ErrorCode=( 15, /* Compone +nt / 65 / Error */)"; say join("\|", $string =~ m/($RE{num}{int})/g) +'` [download] Dave	[reply] [d/l]
Re: find all numeric values from a string and join them by james28909 (Deacon) on May 19, 2018 at 16:37 UTC
`use strict; use warnings; while(<DATA>){ print "$1\|$2" if (/EEH_ErrorCode\=\( (\d+), \/\* Component \\/ (\ +d+) \/\ Error \\//); } __DATA__ EEH_ErrorCode=( 15, / Component / 65 / Error */` [download] OR... `use strict; use warnings; my @array; while( read( DATA, my $buf, 1 ) != 0 ){ push @array, $buf if $buf =~ /\d/; } print @array; __DATA__ a1b2c3d4` [download]	[reply] [d/l] [select]