Question

I have an input variable, say $a. $a can be either number or string or mix of both.

My question is how can I strip off the variable to separate numeric digits and alphabetic characters?

Example;

$a can be 'AB9'

Here I should be able to store ‘AB’ in one variable and ‘9’ in other.

How can I do that?

Answer 1

Check this version, it works with 1 or more numeric and alphabetic characters in a variable.

#!/usr/bin/perl

use strict;
use Data::Dumper;

my $var = '11a';                           

my (@digits, @alphabetics);

while ($var =~ /([a-zA-Z]+)/g) {

    push @alphabetics, $1;
}   

while ($var =~ /(\d+)/g) {

    push @digits, $1;
}   

print Dumper(\@alphabetics);
print Dumper(\@digits);