Hi all,
I am practicing using grep, but have a problem. Instead of directly
building an array in a traditional format with grep:
@array = (grep $_, @input);
I want to push items into a new array that DO NOT appear within the
current array being grepped for. Hence:
use strict;
my @array = ();
my @clean = qw(one one two two two three four six five six six seven
nine ten ten eight nine);
for (@clean) {
if (! grep ($_, @array)) {
push (@array, $_);
print "$_";
}
}
I'd like to take each item from @clean, grep through the initally
empty @array, and if the element from @clean does not appear in
@array, push it to the @array.
When I run the app, I get 'one' in the new @array, but it stops there.
# perl -d program steps through, and on the first pass of the for
statement, does the push, and the print. On subsequent runs, $_
contains the next element from @clean, but the if statement for some
reason is false, thereby skipping the statement block in if{}, and
starting over.
perldoc -f grep was not too much help, unless I overlooked something
in that very short doc page.
Can someone please advise on where I am going wrong?
TIA,
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
