I have to extract a word in perl...using regular expression

Question

The word starts with -D(It may be d also) Followed with..IT may contain spaces or do on not caontain After that its Followed by a $ Then the series is{rajna_NAME} To be brief

-d ${ranjana_wdgf_NAME}or -D${Tom_task_NAME}

i want to extract

ranjana_wdgf
Tom_task

My doubt is

if($word =~m/^-D(\$)\|(\w*NAME)\b/)

Whats wrong: Please provide suggestion

Answer 1

Sometimes regexes are not as robust as other means.

For this case, I wouldn't mind giving Text::Balanced a try.

Answer 2

If you really need a Regular Expression to solve the problem, then try this one

$word =~ m/\{(.*?)\_NAME/; # assuming that name is surrounded by curly brackets

Updated:

$word =~ m/-[dD]\s*\$\{(.*?)_NAME/; #assuming -d or -D always be there.

Answer 3

I'm not sure I understood the question properly. But looks like the code below solves your problem:

$ cat extract.pl 
#!/usr/bin/perl

use strict;
use warnings;

sub extract_name($)
{
  my $s = shift;
  if($s =~ /^-[dD]\s*\${(.*)_NAME}$/)
    {
      print "$1\n";
    } 
  return;
}

extract_name('-d ${ranjana_wdgf_NAME}');
extract_name('-D${Tom_task_NAME}');
$ perl extract.pl 
ranjana_wdgf
Tom_task
$