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

Hi, i have an array whose contents are like this "<NumData>1234567890</NumData>" . what i need is just the numeric value without the start and end tags. Is there any cut function in perl which will help me achieve this... It would be great if i could do this to all the elments of the array at one go. What i am trying is to pull each element from the array and perform the cut function to pull just the numeric data and put it into another array.

Replies are listed 'Best First'.
Re: use the cut function in a script
by JavaFan (Canon) on May 21, 2009 at 04:58 UTC
    Sounds like: 
    my @numbers = map {/([0-9]+)/} @original_array;

    [download]
    will do the trick.
[reply]
[d/l]
Re: use the cut function in a script
by vinoth.ree (Monsignor) on May 21, 2009 at 08:01 UTC

    If the tag is same for all the elements, try this also

    use strict;
use warnings;

use Data::Dumper;

my @array=('<NumData>1234</NumData>','<NumData>543535<NumData>');

my @Output;
foreach my $data(@array){
    $data=~ s/<NumData>|<\/NumData>//g;
    push @Output, $data;
}

print Dumper @Output;

    [download]
    Vinoth,G
[reply]
[d/l]
Re: use the cut function in a script
by graff (Chancellor) on May 21, 2009 at 11:25 UTC
    The unix "cut" command (which isn't quite suitable here) has a lot in common with the perl "split" function, especially if you use split inside an array slice: 
    my @tag_arr = qw(<NumData>1234567</NumData> <NumData>2345678</NumData>
+);
my @out_arr;

for ( @tag_arr ) {
    push @out_arr, ( split /(\d+)/ )[1];
}

    [download]
    (I could have used  /[<>]/ as the regex for the split, and then the numeric string would be the third element, but splitting on (and capturing) the digit string seemed simpler somehow.)
[reply]
[d/l]
[select]
Re: use the cut function in a script
by apl (Monsignor) on May 21, 2009 at 11:41 UTC
    You could also generalize your solution and look at one of the CPAN XML modules.
[reply]
Re: use the cut function in a script
by citromatik (Curate) on May 21, 2009 at 12:38 UTC

    There is a nice node from cdarke for equivalences between unix tools/commands and Perl functions. You may find the reading interesting

    citromatik

[reply]
Re: use the cut function in a script
by Polyglot (Chaplain) on May 21, 2009 at 05:34 UTC
    Just for the sake of education, here's another regexp method that would focus on those tags: 
    foreach $line(@source_array) {
   $line =~ s/<.*?>//g;
   push @target_array, $line;
}

    [download]

    Blessings,

    ~Polyglot~

[reply]
[d/l]
[reply]
[d/l]
Re: use the cut function in a script
by leslie (Pilgrim) on May 21, 2009 at 11:54 UTC
    Dear firend,
    You can use this bellow code.
    use strict;
use warnings;
use Data::Dumper;

my @parse= qw (<NumData>1234</NumData> <NumData>543535<NumData>);
my @parse_out=map{ $1 if (/>(\d+)</) }@parse;
print Dumper @parse_out;

    [download]
[reply]
[d/l]

Back to Seekers of Perl Wisdom