use the cut function in a script

[raghu_shekar]

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.

[JavaFan]

Sounds like:

my @numbers = map {/([0-9]+)/} @original_array;

will do the trick.

[vinoth.ree]

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;

[graff]

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];
}

(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.)

[apl]

You could also generalize your solution and look at one of the CPAN XML modules.

[citromatik]

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

[Polyglot]

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;
}

Blessings,

~Polyglot~

[Anonymous Monk]

s/<[^>]+>//g;

strip HTML tags

[leslie]

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;