Simple regex 3

[netman4u]

Hello All,

Been some time since I posted. A little rusty here.

I Need a regex that will match any string that ends with an "_D". I have this:

/code

foreach $entry (@combin) {
next if ($entry =~ /^*.?_D$/);
do something else;
}

Will this work?

Thanks,

Nick

If at first you don't succeed, don't try skydiving.

 

[duncdude]

It need not be so involved

Your conditions are:

[red]1.[/red] _D
[red]2.[/red] end of line

so...

/_D$/

... should do the trick

Kind Regards
Duncan

 

[rharsh]

Yeah, your regex should work, but you don't really need to match anything at the beginning of the string. It can be simplified like this:

next if ($entry =~ /_D$/);

If there is the possibility of whitespace at the end of the line, you might want to use:

next if ($entry =~ /_D\s*$/);

 

[netman4u]

Thanks for the replies.

I must be missing something here.

#!/bin/perl
my @combin = ("anything_D,something_H");
foreach (@combin) {
	next if /_D$/;
	print "$_\n";
}

Output:

anything_D,sonmething_H

If at first you don't succeed, don't try skydiving.

 

[knights199]

my @combin = ("anything_D", "something_H");

 

[netman4u]

Doh!!!

I knew it. Something stupid.

Thanks



If at first you don't succeed, don't try skydiving.

 

[rharsh]

Good answer Duncan!

 

[duncdude]

Thanks dude

Kind Regards
Duncan

 

[TrojanWarBlade]

Not that Duncdude again!



Trojan.

 

[netman4u]

Cummon folks! Enough back patting! LOL



If at first you don't succeed, don't try skydiving.