Help with perl regular expressions

I have a string that looks like this:

99-9999-A-9  format as dd-dddd-Alpha-d

I need to get three strings from this

First:  return first 6 numbers without hyphen    ex. 999999

Second: return alpha character   ex. A

Third: return last digit (no hyphen)   ex. 9
dmalovichAsked:
Who is Participating?
 
farzanjConnect With a Mentor Commented:
my $var = '99-9999-A-9';
$var =~ /(\d\d)-(\d{4})-(\w)-(\d)/;
my $first = $1.$2;
my $second = $3;
my $third = $4;
0
 
farzanjCommented:
Another way:
my $var = '99-9999-A-9';
my ($first, $second, $third) = $var =~ /(\d\d-\d{4})-(\w)-(\d)/;
$first =~ s/-//;
print $first,"  ", $second, "  ", $third, "\n";
0
 
dmalovichAuthor Commented:
Thanks
0
All Courses

From novice to tech pro — start learning today.