Re: minimal match regular expression

You can use s/// to remove everything after the 1st underscore (inclusive):

use warnings;
use strict;

my $this_server = 'wppwd01a0099_NET_basp_virtual_adapter';
$this_server =~ s/_.*//;
print "$this_server\n";

__END__

wppwd01a0099
[download]

Comment on Re: minimal match regular expression Download Code

Replies are listed 'Best First'.
Re^2: minimal match regular expression by fionbarr (Friar) on Mar 03, 2015 at 16:37 UTC
bravo, thanks	[reply]
Re^3: minimal match regular expression by james28909 (Deacon) on Mar 03, 2015 at 16:56 UTC
you can also: `use warnings; use strict; my $match, $pruned = split(/_/, $_); print $match` [download] at work so cant* test it haha	[reply] [d/l]
Re^4: minimal match regular expression by AnomalousMonk (Archbishop) on Mar 03, 2015 at 20:51 UTC
... and it doesn't work haha. Tested, works: `c:\@Work\Perl>perl -wMstrict -le "$_ = 'wppwd01a0099_NET_basp_virtual_adapter'; my ($match) = split(/_/, $_); print qq{'$match'}; " 'wppwd01a0099'` [download] Give a man a fish: `<%-(-(-(-<`	[reply] [d/l] [select]
Re^2: minimal match regular expression by fionbarr (Friar) on Mar 03, 2015 at 19:40 UTC
thanks...this is the one I ended up with after finding out I had some occurances of an internal '-' which choked on (\w+?)	[reply]