We don't bite newbies here... much | |
PerlMonks |
Re: minimal match regulara expressionby fionbarr (Friar) |
on Mar 03, 2015 at 16:19 UTC ( [id://1118627]=note: print w/replies, xml ) | Need Help?? |
got it:
# remove everything after underscore_
259 if ( $this_server =~ m/^(\w+?)_/ ) {
260 $this_server = $1;
261 }
In Section
Seekers of Perl Wisdom
|
|