Skip Menu |
 

This queue is for tickets about the List-MoreUtils CPAN distribution.

Report information
The Basics
Id: 30307
Status: rejected
Priority: 0/
Queue: List-MoreUtils

People
Owner: Nobody in particular
Requestors: rt.cpan [...] sartak.org
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: (no value)



Subject: wish (and patch): remove, remove_if_not
Download (untitled) / with headers
text/plain 483b
Hi, Thanks for List::MoreUtils. It rocks! :) I often find myself writing the following code: my @opts; @ARGV = map { /^-/ ? do { push @opts, $_; () } : $_ } @ARGV; This could way more easily be expressed as: my @opts = remove { /^-/ } @ARGV; And so I implemented this. :) Attached is a script with pure-Perl implementations of remove (and remove_if_not), and some basic tests for them. Thanks! Shawn M Moore P.S. Your mega import in the synopsis misses 'part'.
Subject: remove.pl
Download remove.pl
text/x-perl 2.2k
#!/usr/bin/env perl use strict; use warnings; use Test::More tests => 13; # pure perl implementations sub remove(&\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@) { my $code = shift; my @out; # for each array.. for my $in (@_) { # go through each element.. for (my $i = 0; $i < @$in; ) { # does the check pass? local $_ = $in->[$i]; if ($code->($_)) { # if so, add it to the output and continue push @out, splice @$in, $i, 1; } else { # otherwise, just continue ++$i; } } } return @out; } sub remove_if_not(&\@;\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@\@) { my $code = shift; my @out; # for each array.. for my $in (@_) { # go through each element.. for (my $i = 0; $i < @$in; ) { # does the check pass? local $_ = $in->[$i]; if (!$code->($_)) { # if so, add it to the output and continue push @out, splice @$in, $i, 1; } else { # otherwise, just continue ++$i; } } } return @out; } # aliases BEGIN { no warnings 'once'; *remove_if = \&remove; *remove_unless = \&remove_if_not; } # some tests my @a = qw(1 2 3 4 5); my @b = remove { $_ < 3 } @a; is_deeply(\@a, [qw(3 4 5)]); is_deeply(\@b, [qw(1 2)]); my @argv = qw(--foo bar -b az quux); my @args = remove { /^-/ } @argv; is_deeply(\@argv, [qw(bar az quux)]); is_deeply(\@args, [qw(--foo -b)]); my @alpha = qw(a eh alpha altar); my @beta = qw(b bee beta); my @tau = remove { /t/ } @alpha, @beta; is_deeply(\@alpha, [qw(a eh alpha)]); is_deeply(\@beta, [qw(b bee)]); is_deeply(\@tau, [qw(altar beta)]); my @eee = remove { /e/ } @alpha, @beta, @tau; is_deeply(\@alpha, [qw(a alpha)]); is_deeply(\@beta, [qw(b)]); is_deeply(\@tau, [qw(altar)]); is_deeply(\@eee, [qw(eh bee beta)]); my @catch = remove_unless { /e/ } @alpha, @beta, @tau; is_deeply(\@catch, [qw(a alpha b altar)]); push @tau, 'foo', remove_if { 1 } @catch; is_deeply(\@tau, [qw(foo a alpha b altar)]);
Download (untitled) / with headers
text/plain 458b
On Sat Oct 27 16:33:26 2007, SARTAK wrote: Show quoted text
> Hi, > > Thanks for List::MoreUtils. It rocks! :) > > I often find myself writing the following code: > > my @opts; > @ARGV = map { /^-/ ? do { push @opts, $_; () } : $_ } @ARGV; > > This could way more easily be expressed as: > > my @opts = remove { /^-/ } @ARGV;
Incidentally that exact behavior is already implemented in my @opts = List::UtilsBy::extract_by { /^-/ } @ARGV; -- Paul Evans
Download (untitled) / with headers
text/plain 180b
Hi, proving all RT's is scheduled after I finished Proc::ProcessTable rewrite. Please understand that I will try to fix as many issues as possible with one real developing action.
Download (untitled) / with headers
text/plain 135b
As Paul wrote, this is already in List::UtilsBy - no need to compete unless a reason is given why List::UtilsBy is definitely unusable.


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.