Hi LanX,
map{} will pass on undef's, but grep{} needs undef to tell whether something passed the filter. But you can stack any number of maps and greps together, which is how I came up with a workaround for it, using two maps and a grep.
The first map{}, reading from the bottom up, simply marks duplicates in-a-row (as opposed to any dupes at all) by changing them to 'aardvark'. Undef's and zeroes go through without problem. The second map{} changes actual undefined elements to the text 'undef'. Change these as suits your algorithm. The grep{} is where the duplicates/aardvarks are finally removed.
It seems to work, accommodating undefined values, while still being simple enough to use in a one-liner, and uses array refs so it doesn't pass whole lists back and forth.
use strict;
my @orig = ( qw(a a b b c 0 c d d u u),
(undef, undef, 'blink', 'blink'),
qw(0 0 v v w w a a a b b b c c c)
);
my @list;
nodupes (\@orig, \@list);
print join ' ', @list, "\n";
sub nodupes {
my ($ar1, $ar2) = @_;
my $p;
push @$ar2, grep{$_ ne 'aardvark'}
map{defined $_ ? $_ : 'undef'}
map { $p ne $_ ? $p = $_ : 'aardvark' }
@$ar1;
}
__END__
Prints --> a b c 0 c d u undef blink 0 v w a b c
And the one-liner -- actually broken up for easier viewing:
perl -e "@list = grep{$_ ne 'aardvark'}
map{defined $_ ? $_ : 'undef'}
map{$p ne $_ ? $p = $_ : 'aardvark'}
(qw(a a b b c 0 c u u), (undef, undef), qw(0 0 v v w w));
print join ' ', @list;"
Prints --> a b c 0 c u undef 0 v w
I hope you find this interesting/useful.
--marmot
UPDATE: I was thinking about this some more, and realized I had made it waaaay too complicated. The nodupes() below pretty much is a one-liner, and accomodates 0, "0", and undef just fine. And nodupes() can be used inline with other maps and greps. In the end, the grep was the only thing needed.
use strict;
sub nodupes {
my $p;
return grep{ $_ ne '~~' } map { $p ne $_ ? $p = $_ : '~~' } @_;
}
my @orig = ( qw(a a b b c 0 c d d u u),
(undef, undef, 'blink', 'blink'),
qw(0 0 v v "0" "0" "0" w w a a a b b b c c c)
);
my @new = nodupes @orig;
print join ' ', @new, "\n";
__END__
Prints --> a b c 0 c d u blink 0 v "0" w a b c
^^
There's an undef between these two spaces.
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.