Re^2: minimal match regular expression

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