Re: minimal match regular expression

[toolic]

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

[fionbarr]

bravo, thanks

[james28909]

you can also:

use warnings;
use strict;

my $match, $pruned = split(/_/, $_);
print $match

at work so cant* test it haha

[AnomalousMonk]

... 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'

[fionbarr]

thanks...this is the one I ended up with after finding out I had some occurances of an internal '-' which choked on (\w+?)