Re^3: Smartmatch alternatives

Replies are listed 'Best First'.
Re^4: Smartmatch alternatives by Anonymous Monk on Dec 17, 2013 at 16:14 UTC
I see that it was added after 1.32 (most recent version installed here) ... `1.33 -- Sun Oct 13 01:35 UTC 2013 * Added any, all, none, notall list reduction functions (inspired by List::MoreUtils)` [download]	[reply] [d/l]
Re^5: Smartmatch alternatives by Laurent_R (Canon) on Dec 17, 2013 at 18:52 UTC
If you don't have `any`, it is easy to implement it using the `reduce` function of List::Utils with something like this: `sub any { my $code_ref = shift; reduce { $a or $code_ref->(local $_ = $b) } @_; }` [download] Or, better: `sub any(&@) { my $code_ref = shift; reduce { $a or $code_ref->(local $_ = $b) } @_; }` [download] which makes it possible to call it with a syntax similar to `grep`: `<strike>print "true\n" if any { $_> 11 } qw /3 12 4 5 7/; # prints tru +e` [download] Update: the above line need to be this: `print "true\n" if any { $_> 11 } 0, qw /3 12 4 5 7/; # prints true` [download]	[reply] [d/l] [select]
Re^6: Smartmatch alternatives by LanX (Saint) on Dec 17, 2013 at 22:37 UTC
your `any` is always true! `DB<12> use List::Util qw/reduce/ DB<13> sub any(&@) { my $code_ref = shift; reduce { $a or $code_ref->(local $_ = $b) } @_; } DB<15> print "true\n" if any { $_ < 0 } qw /3 12 4 5 7/; true` [download] Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l] [select]
Re^7: Smartmatch alternatives by Laurent_R (Canon) on Dec 18, 2013 at 00:08 UTC
Re^7: Smartmatch alternatives by Laurent_R (Canon) on Dec 18, 2013 at 15:55 UTC
Re^5: Smartmatch alternatives by davido (Cardinal) on Dec 17, 2013 at 16:19 UTC
Another good reason to run a recent Perl, I guess. ;) lol. Funny, I thought it went back farther than that. Dave	[reply]
Re^6: Smartmatch alternatives by tobyink (Canon) on Dec 17, 2013 at 16:29 UTC
The most recent stable release of Perl only comes with List::Util 1.27. `use Moops; class Cow :rw { has name => (default => 'Ermintrude') }; say Cow->new->name`	[reply]
Re^7: Smartmatch alternatives by davido (Cardinal) on Dec 17, 2013 at 16:37 UTC
Re^8: Smartmatch alternatives by tobyink (Canon) on Dec 17, 2013 at 19:04 UTC
Re^4: Smartmatch alternatives by LanX (Saint) on Dec 17, 2013 at 16:13 UTC
OK your CPAN- version doesn't show it in the synopsis `SYNOPSIS use List::Util qw(first max maxstr min minstr reduce shuffle sum);` [download] and my 5.10 version does only list it as suggested. Anyway good news! (for me at least =) Cheers Rolf ( addicted to the Perl Programming Language)	[reply] [d/l]
Re^5: Smartmatch alternatives by davido (Cardinal) on Dec 17, 2013 at 16:25 UTC
:) Let's just say that whether one uses List::Util::any, or List::MoreUtils::any, it's a good idea to use "any" when "any" semantics are what is wanted. Dave	[reply]