Perl really needs a filter function. Then I'd use it with grep:
- tyeuse filter; @m_h= filter { s/tw/tr/g } grep /^t/i, @foo; # or, if you don't like prototypes: @m_h= filter( sub { s/tw/tr/g }, grep /^t/i, @foo );
In reply to Re: Localize $_ in grep (filter)
by tye
in thread Localize $_ in grep
by InfiniteSilence
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |