Re^3: minimal match regular expression

you can also:

use warnings;
use strict;

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

at work so cant* test it haha

Comment on Re^3: minimal match regular expression Download Code

Replies are listed 'Best First'.
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]